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LABEL OOOOOOOOOLlNE 00176362CC EX Q/R; COMMON 3 1 / F I LE S=ELPAS0/8 1900b DISK SERIALJEND* 

FILE' ELPASU/U819005 MONDAY 12/27/76 02*56 PM 



/R 



.$SE.T_.BEND. 
$SE.T CARD 



.XKE>"3._. 
LIST SIN 



% t ¥ H. <v v v ty *" % °/ v <v <v "* «/ ty v c 
>*> « A >b /o A /t * ^ ,a /o '» ^ 6 « '0 rt> 

-%- - ■ - 



% 

A3 

% 



*. 

** 



% 




% 

% - ----- 

X % *>%% % % 




%%%%%%%%%%% 


% 

% — 

% 






% __ .. 
% 






A/a&%%*a/Q 


,ii%f , oJo%A>/9^%^Jo 


%- 


,. .. ., 


% 




BEGIN* 




DEE.INE- 


EDI-r.I0N = , '2-.. 


INTEGER 


NUMERRS, 




SAVEFACTOR 



OLE BEND xREFX 

%%%%%%%%%%&%%%%%£%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
. _ 56 

% 
* X 

PASCAL COMPILER* X 

********************************* % 

X 

* 

WRITTEN ]975 tJY X 

DaG F, LANUMYHR, X 

- HERIOT-VUTT UNIVERSITY* *- 

EDlNBURviH. X 

% 

--- % 

%%%%%"■,',%%&%%'%>% %%%%'&%% %7i% %/!>X%%%%XX %%%%%%%%%%%% %%%%%%%% 

X 

- - - - % 

PART l: DECLARATIONS. % 

---"• «■-"-•." % 

- - X 

X 

x%%%%%%%%:i%x%:s^%%A«x^xxxx%x%x%x%x%x%x%x%xxxx%xxx%%xx 



3.'-' * J.%. 



% 
% 



......C.AROCN.T;- — 

FILE CARD "SOURCE" 

FILE LINES 1 C2,17 

..F.LLE.-P-ASC ALGOL DiS 

DEFINE LINESPERPAG 

MAXINT=5497 



(2*1 
)> 

K_ SER 
E = 58/> 
55813 



.X t> 
0*15 

TAL 

,% 

Q8/# 



NUMBER OF ERRORS IN PROGRAM. 
SAVEFACTOR FOR CODE FILE. 
>0 COMPILE TU LIBRARY, 
=0 COMPILE AND RUN. 
<U CUMPILE FOR SYNTAX, 
NUMBER OF CARDS READ. 

% SOURCE CODE 
% PRINT FILE. 
r20:.oU0J. C2*10*150#SAVE 0); X CODE FILE 



R + 21 
R + 22 



R + 23 
0)i 



INPUT FILE 



;% 



%*** CQMP 
DEFINE MA 

MA 

MA 
MA 

— MA 

MA 
MA 

MA 

MA 
MA 

MA 

Li 



IL 

xr 

XN 
XL 
XC 

XL 

XP 

xr 

XC 

XT 

xw 
sr 



ER CONSTANTS *** 
ABLES = 50#> 

AMES = 997*,- • ■ 

EVEL = 15*, 
ASES =y 1 1#, 

AB3- = 1004-, 

ARAMS =2 004, 
YPES =1022;,'* 



UNSTS-. -=200:-.^ 
EMPS = brf> 
ITHSYMS=2502, 
.YM3 ... =3007^ 
LENGTH -r\00>i. 



SMAX NUMBER OF NAME TABLES, 
. XNi ax- -NAMES IN EACH TABLE. - 

XMaX DEPTH UF PROCEDURE DECLARATIONS, 

XMAX LABELS IN A CASE-STATEMENT. 

SSMAX NUMBER OF LABELS. 

XMaX NUMBER OF PARAMETERS IN WHOLE PROGRAM. 

%MAX NUMBER OF DIFFERENT TYPES, 
..XSUE.UF CONSTANT TABLE. 

XNUMHER OF EXTRA VA*S IN EACH PROCEDURE, 

%MAX NUMBER UF SYMBOLS USED BY Wl TH-STATM5, 

XMAX NUMBER OF SYMBOLS IN ONE EXPRESSION, 

XMAX LENGTH OF VAR AND PARAM LISTS. 



00001 
*I* 

00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
0003b 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 



PAfiJ 



PAS 
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o 
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c 
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o 
o 
c 



'■ '1 



'sJ 



u 



^w- 



(' ') 



o 



o 
o 



MAX£XTFILES=20#> 
_ — MAXK-ILES- -a20*» 

-4AXPNTRS =30rf; 



%MAA NUMBER OF EXTERNAL FILES, 
.%MAX -NUMBER .OF FILES DECLARED AT ONE TIME. 
%MAX NUMBER UF UNDECLARED POINTERS, 



'-O 



:o 



in 



' : o 



c 



o 

o 

o 
o 
o 
o 
o 
o 
o 



-X*-**- N A HE-- T-ABbE-S -*•** - ... . 

ARRAY NAMETAB1*NAM1£TA{32,NAMETA8310:maxTA8LE5#0:MAXNAMES]/% 
DEFINE MAMElENGTH - U I, ; 6 ] 4 , £ 

1-Y p e ~ C 9-5-i-OJ #-,-* 

IDCLASS =C12;3]W,X 
VAR -Qit,% 

. — CONS T-= !-#-»-» — ----- 

FUNC «2«** 
PRQC sj#,? 

TYPES»4#*a -- 

INFO =C 23 : 1 1 J #, X 
FORMAL 

EXTERNALFILE=C26 
% 
_%*.*.*_ DISPLAY- VECTOR-*-*-*- ... . 

ARRAY DISHLAYCOjMAXLEVElJJ* 
DEFINE RECTYPE =Cq * 10]#j«% 

F-I-HS-TWIThSY-M — = C- 1 9-t 10 !*■*■%- ._ 

LASMITH5YM =[?9»10J*/* 
NUMPNTRSlNWITH=C:j5»6l#,* 

3RACKE-T-S-INW-I r-H=C--36!-l )$>% - 

NAMETAB = [ 46 J 7l#;% 
X> 

-X-*jfc.*__T-Y-PE:— T-ABL-E-S-*-*.* 

ARRAY TYPE)ABl,TYPETAB2,TYPETAB3i:o:wAxTYPESj;% 
DEFINE FORM = [ 3 5 4 J tf> % 
N UMERIC-- = 0#»8 — 



= C24;i:i,V,% 
: 1 3 # ; % 



SYM30LIC = 1#j>% 
SUBTYPE = 2#>% 

___ MM-N-T-YPEbC-3-3-:-1-0.] 4t % 

CHAR b3*»x 

FL0ATING»4*X 

ALF-A = S#>-% 

SET = 6#><$ 

SETTYPE ~l33:lQ1it>% 

P-QINTERS = 7#^-- 

P0.[NTTYPr = C33:i0J#/: 
ARRAYS =8#>% 

. I-NX-TY-PE--= t 33 MO] -», % 

ARRTYPE sU3:103rf>S 
RECORD ='itt>% 

r £ c T a B — a C-3 3-: 1 ].* ,.% 

FILES =10.»,X 

FlLETYPEsC3i:10]*>% 

TEXTFILE-=U#,% - 

SIZE bC15:12]#*x 
STRUCT=C23:a]#i% 

-I-N-T-E-GE-R--NUM-T-YPES; •* 

% 

%*** PARAMETER TABLE *** 

..ARRAY- PAR AMJaB-CO-J-M-AXP-ARaMS-J-;.* 

DEFINE PARAMNAMe = [ 9 S 10 ] * .. « 



00054 
00055 
00056 
00057 
00053 
00059 
00060 
00061 
00062 
00063 
00064 

00065 
00066 
00067 
00068 
00069 
000?0 

00071 
00072 
00073 
00074 
00075 
00076 
0007/ 
00070 
00079 

00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 

00101 

00102 
00103 
00104 
00105 
00106 
0010/ 
00108 
00109 

00110 
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v^ 
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o 
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o 



V_> 



FJ PARAMKIND =C13U]#/JS 00U1 



o 



.y 



( 'i 



w 



O 



_f?ARAMLEV-EL=.C23.ilo3#** - — ■ - 00112 

PARAMTYPE =[33:io3#/% 00113 



**** COMPILE- TIME OPTIONS *** 00158 

BOOLEAN Ll&TQPTlON,RESWoROOPTION*CHtCKOPnON>DUMPOPTlON^XREFOPTlON;* 00159 

-I-N-T-E6ER-CARI3LENG-TH;*-- - - 00160 

% 00161 

%*** INTRINSIC TYPES *** 00i62 

_IN.lEGER.-IN.T-T_YEE.#.KEALT-YRF'-ALFAT.YPE*CHARTYPE^BOOLrYPE#NILTYPE#TEX.TTYPE** 00163 

1NPUTFILE*0UTPUTFILE*EMPTYSET;* 00164 

BOOLEAN INPUTDECL/OUTPUtDECL'% 00165 

..% _._ .._ . _ _.. 00166 

X*** TEMPURARY VARIABLES *** 00167 



*s_ 



■_; 



O I PARAMFILE = C 34 i 11 #' * 00114 ^ 
UiTEGER_NUMPA^AfiS„;^ _ . . 001 15 

% 00116 

O %*** constant table *** ooiu ~> 

ARRAY— C0NST-r.AQC0SMAXC0N3-TSJ;X.- -- ----- 00118 ■ - 

INTEGER NUMCQNSTSJ* 00119 ^ 

O % 00120 

_ X.*±*...LA"3EL..-TAI3LE -■*-*-* — - -■- 00121 

ARRAY LABTAQCOtMAXLABSJj* 00122 

U DEFINE LABVAL=C14!15]«p'< 00123 

LA80EF-=U-5t..L.]#;X - 00124 

5- INTEGER NUMLABS,FI RSTLAB/ £ 00125 

5 U X 00126 

_____X.**.*_T-ABLES-EOfi...I/.n. AND CHARACTER HANDLING *** 00127 

■„ ARRAY CritOJOJ* TEXTC0*1]/ STRING CO : 1 1 3 i 'A 00128 

f-O POINTER CHARPnT*TEXTPnT>TfXTPNT0>&TR1nGPNT#% 00129 

s ARRA-Y-I CARD t0.:..9.]#_ LI NECq! 16-3* .XLl NE CO 5 10 J / ALGOLCARD C 5 g }} % 00130 

% POINTER CARDPNT,LINEPnT»XI INEPN1#ALGQLPNT>X 00131 

|0 integer charcnt,algolcnt*margincntjx 00132 -' 

" arka-y_heao-r.ex-uo.j103-#-efrllneco-m6j;» 00133 -- 

1^. integer linecnt*pagecnt*errinx>* 00134 

""O % 00135 

%*.**.. XREF— FILE AND -TABLE-*** --•- ■ -- 00136 

FILE XREFFILE DISK SERIaL 120530003 (2/3*150);% 00137 

O ARRAY BLOCKTABC05MAXTABLES3, XREFlINEC : 16 3 ; % 00138 

-INTEGER NUMXREF^NUMBLOCKS;- POINTER XKEFPNTiX 00139 



O 



o 
o 
o 



% 00140 

o %*** other tables *** 00141 

int.eger-array.._v.arl-i-stlo:hst.leng:r.hji * temporary list of variables. 00142 

integer varindex>firstvar;% 00143 

o array symtabc08maxsyms3; % used by "expression". 00144 ° 

__„ int-eger--nums-yms;s - -- 00145 - 

ARRAY WITHTABCOjMAXWITHsYMS]; % USED BY "WITHSTAT". 00146 p 

' ; - INTEGER NWITHSYMS;* 00147 "- 

I.N.TEGER ARRAY.. SYMBOL EC? 64 3>- ..- .% USED BY "INSYMbQL". ■ 00148 

INTEGER ARRAY SYMK IND [0 : 61 3 ; % USED IN ERROR RECOVERY. 00149 

O ARRAY PNTRTAB1/PNTRTAB2,PNTPTAB3C0:KAXPNTRS3;% USED FOR FORWARD POINTERS 00150 ^ 

__ lNTEGt:R-NUMPNTRS;% • 00151 

ARRAY EXTFILETABC0SMAXEXTFILES3; % EXTERNAL FILES. 00152 
^ INTEGER NUMEXTFILES;* 00153 ^ 
ARRAY-.EJLET.ABC.0:MAXFlLEy3; . - - .. X FILES IN USE. 00154 

- integer numfiles;% 00155 r , 

O BOOLEAN ARRAY ERR CO : 1 19]; % RECORDS ERROR MESSAGES, 00156 ^ 
- ._ . 00157 
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INTEGER Tl»T2*T3^T4>T5/% 

-% --• - 

%*** OTHER VARIABLES *** 
ALPHA USER; 

INTEGER CURLEVEL* 

TQPLEVEL* 
._ . NUMBEQI-NS* 

NUMCASES* 

NUMREPS* 
--NUMTEMPS* — 

CURFUNC, 

CURSY> 
-^CUR-TYPE, - 

CURMODE* 

LASTREC; 

LABEL ENOOFINPUT*% 

% 

F-ORMA-T-NOERRORS- ("NO -ERRORS 

ERRORS 
ALIS1 

_ NOALIST 

LASTLINE 
TERMMESS 

-MONI-TOR--EXP-QVR-* 

% 

%*** SCANNER SYMBOLS *** 



% THE USER NUMBER FOUND ON THE USER CARU, 



% 
X 

% 
% 
% 

/a 

% 
% 
% 
% 
% 



CURRENT PROCEDURE LEVEL. 
TOP LEVEL IN DISPLAY VECTOR. 
NUMBER OF "8EGlN"S IN THE PROGRAM, 
NUMBER OF CASE-STATEMENTS IN PROGRAM, 
NUMBER OF REPEAT-STATEMENTS IN PROGRAM, 
NUMBER OF TEMPORARY VARIABLES IN USE. 
INDEX OF FUNCTION CURRENTLY COMPILED. 
LAST SYMBOL READ BY SCANNER. 
TYPE OF ENTITY LAST COMPILED. 
CURRENT EXPRESSION MODE, 
LAST RECORD TABl^ DEFINED. 



DETECTED,")** 

(is." errors detected"/)** 

C"$ SET LIST SINGLE")** 
(•"-*- RESET LIST")** - 
('•; TERMINATE: END UF 
(»**** END-OF-INPUT . 

REAlsQVERFLOw;*- 



PASCAL PROGRAM 
CQHPILA1 ION 



■ DEF-INE- 



-iDENT-IF-lERaHf-INTCONSrsa**- 
CHARC0NST=5#* N0TSY=6#* 
ANDSY=9#* DIVSY=10#* 
...MlNUS=l3#* _. ORSY = 14tf* 



GEQSY=l7#» 
INSY=2l#* 
-R8RACK£T = 25#> ■ 
00T=29#» 
BEtiINSY=334> 
ELSE3Y=37,#,- --- 
UNTILSY = n#* 
T0SY=45#* 
TYPESY=49#» 
SETSY=53#* 
FUNCSY=57#, 
PACKEDSY.s6l#;-% 



GTRSY = 18'?* 
LPAR=22#* 
-n0U9LE00T s 26## 
ARRQW=30#* 
ENDSYs34#* 
CASrS-Y=3B#*. 

WHIl_ESY = 't2#* 
DQWhiT0SY = 46#* 
ARRAYSY=50** 
C0N3TSY=54*» 
PR0cSY=38rf* 



HEALCQNST S 3** 

ASTERISK*/** 

MUDSY=1K* 

LS5SY=l5#* 

NEQSY=l9#* 

RPAR=23#* 

CUMMA=27#* 

CULONS31*' 

IFSY=35#, 

0FSY~39#* 

005Y=432* 

GOTOSY=47#* 

RECORDSY=bl#/ 

VARSY=s55?M 

«ITHSY=59#* 



" ) > % 

TERMINATED,")* 4 * 



ALFACQNST=4#>£ 

SLASH S 8#*% 

PLUS=12#*% 

LE<3SY=16#,;& 

EQUSY=20#>% 

LBRACKET=24#>fc 

SEMIC0LUNs28##St 

ASSIGNSY=32#*% 

THENSY=36#,% 

REPEATSY=?40#*% 

FQRSY-44#>% 

NlLSY=48#>* 

FILESY=52#*% 

LABELSY = 56#*** 

PR0GRAM3Y=60#** 



o 


% 




. .. . . % 


o 


% 

% 




- ..% 


o 


% 
% 

% 

% 


o 



% 

DEFINE INITIAL = 0*# MIDDl_E = l«* TERMINALS** * 
DEFINE- NUMBERsO**- BITPAtT-ERN s U** 
$ P AT E % 
%%%%%%%%%%%%%%%%%%%%%%%V I %%%%%%Z%£%%VA%%%%%%%%%%%^%%%%%%%^%%%^%%%^^^1 



PART 2: 



COMPILER UTILITY ROUTINES, 



00168 
00169 
00170 
U0171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 

00186 
00187 

00188 

00189 

00190 

00191 

00192 

00193 

00194 

00195 

00196 

00197 

00198 

00199 

00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 

002U 

00212 

00213 

00214 

00215 

00216 

00217 

00218 
00219 
00220 
00221 
00222 
00223 
00224 
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G 
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o 
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c 
c 



^ 



v_ 



c 
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c 



r) 



o 
o 
o 
o 

> 

□ 

!o 

D 
CD 

O 

a 

5 o 

o 
o 

o 

sJ 

o 

o 



■w> 



u 



o 



>6 A» A ifl X 

_% — 

% 

pruce 

-BRUCE 
PRUCE 
VALUE 

•REAL 
INTEG 
BQULE 

-FQRWA 
% 
DEFIN 

-I.E1—NS 
IF N< 
% 

-DEFIN 
BEGIN 

P 
R 



%%%%%%%%%%%%%%%%%%*%%%%%%%%%%%»%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



W 

w 

L- 

END a 

% 
-%- — 

DEFIm 

BEGIN 

R 

I 

I 

B 



DURE I 
DURE-W 
DURE N 
NAME! 
NAME1-, 
ER TAB 
AN DEC 

rd;x. - 

E NDIG 
-9--THE 
99 THE 

E- HEAD 
CUMME 
AGECNT 
EPLACE 
RITECL 

RITECL 
-I NEC NT 

F HEAD 



nsymbol; forward^ 
ritealgol; forward; « 
ewxrefcnamet,name2#ta8le»decl);x 

> NAME2* TAB[_E, |)ECl#* 
■ NAME2-;-X 

le;% 



ITS(N)=X 

N- t ELSE%— - 

N 2 ELSE 3 DIGITS*/* 



ING = % 

NT *** PRINTS A HEADING UN TOP UF A NEW PAGE, }% 

:aPAGtCNT+l/% 

- POlNTERCHEAn-TEXTC*] ) + 85 bY PAGECNT FUR NDIGITSCP AGECNT ) / % 

INES[PAGE3);% 
INES[DBL]*ll,HEAD"FE:XTC*])iX 

i~2',%- - - 

INGrf;* 



E 

w 

L 
-ENU^O 



E PRINTLINE* 

% 

EPLACE 

F LINE 

F RESW 

EGIN2- 

WRITE 

WRITE 

nd;x . 

RITECL 
INECNT 
F-P.RIN 



%*** PRINTS A SOURCE CODE LINE, 



-LINEPNT-S BY-CARDCNT FUR. 5 U I G I-T S j X 
CNT>l.lNESPERpAGE THEN HEADING* 
ORDOPTION THENX 



(LINESCNa]/ll'XLlNE[*n;,» 
CLINESCNU]*li/XLlNEC*J >>* 

INES,17»LINE[*] );2 

S=LIMECNT+l/ e A 

ILLNEJUX - 



% 

-DEFlME- 

BEGIN% 

IF 

I.F- 

REA 
CAR 

REP 

REP 
CHA 

MAR 

CAR 

enu#;% 



.NE.W CARDs 



.X.*** HEADS A NEW SUJJRCE CODE CARD, 



LISTOPTION THEN PRINTLINE; 1 * 

ERRLNX>0-.lHEN-PRl-NTERRORS/.%. - 

DC CARD, 10* I CAR DC *J ) [ ENDOF INPUT 3 i% 

DPNTS=PQINTERCICARDC*]);Sb 

LA-C£~.LLMEPNT.-.B-Y... c ARDPNT- FUR 10 

LACE XLlNEPNT BY " " FUR 10 rtURDS;* 

RCNT!=CARDLENGTH;% 

G INC NT-: =85*-%- - 

dcnt:=cardcn7+i;% 



WORDS* 



fur 6 words;* 



% 

DEFINE 
-&E-G.IN— 
IF 



GENCT*N#START)= 



ALGOLCNT<N THEN 



%*** generate a text "t's consisting of 

%*.** "n" letters/ starting at "start", 

wRitealgol;s 



00225 
U0226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 

00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 

00254 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
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So 
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o 



o 



o 



o 



text[0];st;sk 

re-place algolpnpalgulpnt by textpnto + st art f or n/* 

al60lcnt«=alg0lcnt-n'x 



ENU#;% 

% 

DEFINE GENID(L>NUM>NQIG)= 

-BEQ-INX 

IF AL 
CHC03 

RE PL A 

ALGOL 

end#;% 



3*** GENERATE AN XAI.GUL IDENTIFIER. 
G0LCNT<NDIG THeN W^ITEALGQl; X 
CE- ALGOLPN-TJALgOLPnT- BY- ChARPNT FOR \, NUM FOR NDIG DIGITS; * 

cnt;=algdlcnt-ndig-i;% 



INTEGER NABS/NSIZE;* 

DEFINE GENINTCN)=* 
BEGIN% 

NABS! 

NSIZE 



IF AL 

-I-F-N3 

REPLA 



REPLA 

ALGOL 
END OF GE 

._%_ 

% 



sABSCN 
5 = IF .M 
IF N 

.... -I ft- - NJ 

IF N 
GQLCNT 
I-ZE=-12 
CE ALG 

CE ALG 
CNT:=A 
NINT#i 



>;■ -I-F-- 

A3S< 

A8S< 

ABS< 

ABS<999 
<NSIZE 
-THENX- 
OLPNTJA 

LP- NT-*- A 
LGOLCNT 



N<0 THEN GENC-"»1/7);X 
9 THEN 1 ELSE* 
999 THEN 3 tLSES 

90999 • then -5 else^ 
99999 then 8 else 12;% 
then wRItealgol;* 

LgOLPnT BY CNaUS UIV 1000000) FOR 6 
FNTIERCNABS MOD 1000000) FOR 6 
LfiOLPrtT-BY. NABS FUR NSIZE DIGITS/ % 

-nsize;* 



DIGITS** 
DIGITS ELSEX 



PROCEDURE 

_v-alue— x;~ 

BEGINS 

REAL AB 
INTEGER 



GENREALCX);% 
REAL -X;X- - 

sx;% 
_B0Wb:R*.v.i.*.v2;.x- 



% 



g0lcnt<9 then wmtealgol;s 
qj:=x;% 

CE AlGOLPNT-»ALqOLPNT- BY- """> TEXTPNT FOR 1, '""»;% 

CNT:=ALGOLCNT-g;% 

E% 



IF X.[A6J5]=0 THEN% 
— BEG-IN %-. 
IF AL 

TEX7C 
REPLA 

ALGOL 

END ELS 

— BE-G-I-N*- 

IF AL 

IF X< 
ABSX-5- 

IF AB 

BEGIN 
WH-I 

WHI 

VII 

-V2 5 



REP 



G0LCNT<22 THEN WRlTEALGOL/2 
THEN GEN("(-"*2/6);% 
-ABS(X);% -• 

SX>0 THEN* 

% 

LE-AB-SX21-97 -DO-BEG-I-N-ABSX »sABSX/10; POWER ! =PQWER + 1 END;* 

LE ABSX<1P6 DO BEGIN A6SX : =ABSX*10; PQW£R» sPQWER-1 END;% 

=ENTIER(ABSX)/% 

=-E NT I E R-UA B S X --V 1 )-x 1-0 J / »- - 

LACE AlGOLPNTSaLGOlPNT BY Vl FOR 7 DIGITS/ "<",% 



00282 
00283 
0028a 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
00319 
00320 
00 321 
00322 
00323 

00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 
00332 

00333 
00334 

00335 
00336 
00337 
00338 
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END 

-IF- 



V2 FOR 6 DIGITS, "?«;« 

LGULCNT-taALG0L-CN-r---l5-;-*- 

F P0hER<0 THEN GeNC'-M;?)'* 

dwer:=abscpower);* 

ep-lace- atgol-p-n-t-»al-golpnt-by-huwek for 2 digits;* 

lgolcntj=algolcnt-2;% 

ELSE GENCO", w);& 
X-<0-lHEN--GEN(")'M,7);*- - ■ 



end;* 
nu of genreal;^ 



NTEGER TYPEINDEX;* 
NEWTYP£=* 



EFINE 

EGIN* 

IF— NUMT-YR.ES2MAX-T.Y-EE-S— T-HE-N-8EGIN ERROR C4b ) ;NUMT YPES J =M AXTYPES-20 

T YPEINDE X :=NUMTYPES;=NUM TYPE 3+1 >* 

ND ti% 



end; 



PROCEDURE WRlTEALGQLi %*** WHITES A COMPLETED XALGQL CARD TO 

-BE-G-I-N — X*-**- THE FILE. 

REPLACE P0InTERCALGqLCARDC9] ) BY CARDCiNT FOR 8 DIGITS;* 

WRITECPASCALGQL#10»ALG0LCARD£*])i* 
I-F— DUMP-OP-TlON-T-HEN-wRI-T-E-C-LINES* 10, AuGOLCARDC*] )>* 

ALG0LPNTJ=P0INTERCA|„G0LCARD[*])' algolcnts=7i;* 

replace alg0lpnt by " " for 9 wurds;* 

-end-.-of~wRit-ealgql;*~ - 

* 



--deelne--marg in ( letter* num-) = %-- • - 

begin comment *** places information in the margin, 
if makgincnts116 th^n* 

begin-t-extco3:=letteR;*- • • - 

replace linepmt+margincnt by textpnt+5 for 

NUM FcjR NDIGITSCNUM);* 

margincnt:=margincnt+6;% 

end;* 
end of margin**;* 

% 



i% 



2»% 



SKIP SYMBOLS 
CONDITION, 



procedure skip(symbol); **** 
-V.auue_sy>180l;. integer symbol;- **** 

BEGIN* 

WHILE CURSYXSYMeOL AND SYMK INDC CURSY J =M IDDLE DO* 

IF— CURS-Y.sRECQRDSY.-ThENX-..- 

BEGIN DO BEGIN INSY,v,B0L ,; * 

S K I P ( 9 9 ) ; * 

end-un-Til--cursyxsemicolon and cursyxcasesy;* 

end else insymbol;* 
end of skip;* 

..%__ . . „.. 

* 

procedure error(errnum);* 
.v-ALue-errnum;~ . integer-e-RRNijm;* 
begin comment *** arrange error 



TO RECOVER FROM ERROR 



INDICATOR 



00339 
00340 
00341 
00342 
00343 
00344 
00343 
00346 
U0347 
00348 
00349 
00350 

00351 
00352 

00353 

00354 
00355 

00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00368 

00369 

00370- 

00371 

00372 

00373 

0037A 

00375 

00376 

00377 

00378 

00379 

00380 

00381 

00382 

00383 
00384 

00385 
00386 

00387 
00388 
00389 
00390 
■00391 

00392 
00393 
00394 
00395 
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END 



numeRRs;=numerrs+i>% 

-ERRCEftRNUH3 J=TRUE;.X 

ERRINX:=MAX(ERRINX#CARDuENGTH-2-CHAMCNT);% 
IF ERRINXSH5 THEN% 

_BEGIJSI_RERLACE-P-aiNTF-RCERRLINECU3 + ERHlNX BY "x",* 
ERRNUM FOR ND IGI TSCERRNUM )/ % 
ERRINX«=ERRINX+CIF ERRNUMS 9 THEN 2 ELSE* 

-- -■- - -IF ERRNUM;,99 THEN 3 ELSE 4)*X 

END OF ERRORS 



PROCEDURE PRINTERRORS;^ 

BEGIN COMMENT *** PRINT ERROR INDICATORS. }% 

----- IF- NOT--LISTOPTION- T-HE-N-PRlNTLlNEiX 

WRITECLINES,17/EHRLjNEt*]);% 

LINECNT>sLlNECNT + i;jr 

rEPL-ACE-PGINTERC-ERRl.INEC-1]) By " " FOR 16 WQHDSJX 

ERRINX:=0;^ 
END OF PRINTERR0RS;% 

% 

DEFINE HASH(N) = CN).C3s:36] MOD MAXNAMES#;% 

-% - - - . - 

INTEGER THISLEVEL.,THISTaB,ThI3INDEX>X 

alpha thisiu*tname;» 
-booue-an--found;x - — _ . . 

% 

DEFINE SEARCHTABCTAB)= %*** SEARCH NAME TABlE "TAB" FOR THE 

-BEGIN - J*** -IDENTIFIER JUST READ, 

THlSI!sJDEX:=HASH(CuRNAHEl )}% 
TNAME:=NAMETABUTaB^ThISINDEX]/X 
WHILE. CIF TNAME-CuRNAMEl THEN I'M AMET A82C T AB'THI 3INDEX]*CURN AME2X 

ELSE TNAME^Q) DO* 
BEGINS 

TH1.SINDEX:=.I.F.-_ThISInDEX=0 then maxnames else thisinoex-i;% 

tname:*nametabictab,thisindexju 

end;% 

- — found:stnamexo;x- - - - 

if xrefoption then* 

IF FOUND THEN NEWXReE C CyRNAMEl > CURNAME2* TAB*FAL5E )} % 

--ENU-.nF— SEARCH-TAB*/ «-- 

% 

DEFINE SEARCH= 

-BE-Q-IN%- - - - 

THISLEVEL$=TOPLEVEL+i;% 
DO BEGIN% 

-T-H-ISLE-VEL.-: = THlSLEvE-L-i;X - 

THISTAB;=IF THISLEVEL<CURLEVEL THEN THISLEVEL^ 

ELSE DISPLAYCTHISLEVELJ.NAMETABJ* 

. SEARCHT-ABCTHISTAD);* -- -- 

END UNTIL FOUND OR yHl SlEVeL-O/ X 

THISIU:=NAMETAB3CTHISTAB*THISINDEX3;» 
-END .OF- SEARCH. #}% _ _ 

% 

% 
~DEFINE-.NEWNAMECNAME1.,NAn;E2mA6) -I 

BEGIN %*** ENTER A NEW NAME INTO THE NAME TABLE "TAB", 



%*** SEARCH ALL TABLES CURRENTLY IN USE, 



00396 
00397 
00398 
00399 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
004Q7 
00408 
00409 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00418 
00419 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 

00428 
00429 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 
00438 
00439 
00440 
00441 

00442 
00443 
00444 
00445 
00446 
00447 
00448 
00449 
00450 
00451 
00452 
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THIS INDEX !=HASH( named '% 

-T-NAME t=NAMETABir-TAB# TH IS INDEX JiK 

WHILE C IF TNAME = NAmE1 THEN NAME I AB2C T AB* THI SI NDEX 3XNAME2* 

ELSE TNAMEXO) DO% 

_ BEGINS- - . . - - 

THISINDEX:=IF ThISINOEX=0 ThEN MAXNAMES ELSE THI SINOEX-1 ; % 
TNAME:=NAMETAB1 [TAB, THIS INDEX];* 

emd;% 

IF TNaMEXO THEN ErR0R(2);* 
NaMETABICTAB/THISjNDEX] * aNA me in 

— -NAME-TAB2ClAB*TH-l5iN0EX3*sNAME2iX 

IF XREFCJPTION THEN nEWXREF(NAME1»NAME2»TAB*T«UE)J% 
END OF NEWNAME «i% 

_% . _ _ . - . 

% 

PROCEDURE INITIALIZE; **** INITIALIZATION *** 

-BEGIN" X********************** 

INTEGER T1*T3;% 
ALPHA a;% 

F-jLL-SYMK-lNDt-*-]-- WITH 28 (MIDDLE)* TERM INAL* 4 (M IDDLE ) * IN IT IAL* TERM INAL* 

INITIAL* MIDDLE* TERMINAL* INITIAL* MI DOLE* INITIAL* TERMINAL* INITIAL** 
MIDDLE* INI T I AL* 2( M IDDLE)* INITIAL* MIDDLE* INIT I AL*4( MIDDLE),^ 
7 (-1 NIT I AL)* MIDDLE; % 



% 



fill symbql[*3 with 10 (0 )' 0* arrow* 0* colon* gtrsy* geqsy*plus* 9 co )»* 
-- d0t-*l-bracke-t*andsy>lpar*lsssy*arrqw*q*9c0)>q*asterisk*m1nus*% 
rpar* semi colon* legs y*0* slash* 6 (0)*cqmm a* 0*ne«sy*eqlsy*rbracket*x 

o,doubledot;s 



16 WORQS*% 



■f\i 



LINEPNT :=P0lNTERCLiNEtl3);% 

XLINEPNTS=POINTERCXlIN£CU)** 
..REPLACE. .LLNEPN.T-B _BY-" => ."* " " FOR 

REPLACE XLINEPNT-8 pY " " FOR 11 WORDS;* 

REPLACE PQINTERCERR L INE[*3 ) BY "**** "* 
-ALGOLPNT.:=POINTERCAlGOLCARD[*])* ALGOLCNT! 

REPLACE ALGOLPNT BY " " FOR 9 WORDS** 

CHARPNTS=POINTER(CH[*3)+7*% 
_T.EXT.P.NT.;=EQlNT.ER-CTE.xT-C*-]-)+-l*- TLXTPNTO 5 =TEXTPNT- 1* % 

REPLACE TEXTPNT BY * " FOR \bi% 

STRINGPNTt=POlNT£RCsTRlNGC*J);% 
-REP-LACE PQInTERCHEAdTEXtC*] ) BY 

REPLACE PQInTERCHEAdTEXtC*]) BY 

textco]:=timec5);% 

-REPLACE-POlNTERCHEAD-T£X.TC*3)t4b. BY. TEXTPNT+3 
TEXTPNT + 1 FOR 2* "/"* TEXTPNT^ FOR 2>% 

Ti:=TIMEC l)/3600;% 
-REPLACE. .RO.InTER(HEAdTExtC^ 3 ).+ 57 tiY CT 1 U IV 
ENTIERCT1 MOD 60) FOR 2 DIGITS** 
HEADING** 



FOR 16 words;* 



»• m 



FUR 10 
"PASCALC"* 



WORDS* "PAGE "*% 
EDITION* ")/B-5700"*% 



FOR 2* "/">% 



60) FOR 2 DIGITS* "5"*% 



-% 



%*** INITIALIZE INTRINSIC TYPES* CONSTANTS ETC. *** 



..INX1-YP.E.;=T3.S = 1.; 

T1»=NUMERIC; Tl.SlZE!=t; 



V,*** "INTEGER" *** 

Tl.Sr"HUCT»sO*S 
TYPETAB1C13:=T1; T yHE T AB2 [ 13 : ="MAXINT* TYPETAB3 t 1 ] S =MAX1 NT; % 
.NEWNAME.C"7INTEGE"*"R"*0).; T-3 . IUCLASS : =TYPES* % 
NAMETAB3C0*THISINDEx3:=T3;% 



00453 
00454 
00455 
00456 
00457 
00458 
00459 
00460 
00461 
00462 
00463 
00464 
00465 
00466 

00467 
00468 

00469 
00470 

00471 
00472 
00473 
00474 
00475 
00476 
00477 

00478- 

00479 

00480 

00481 

00482 

00483 

00484 

00485 

00486 

00487 

00488 

00489 

00490 

00491 

00492 

00493 

00494 

00495 

00496. 

00497 

00498 
00499 

00500 
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00502 

00503 

00504 

00505. 

00506 

00507 

00508 

00509 
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REALTYPE!=T3!=2; %*** "REAL" *** 

-T-l. FOR M;sFL GATING-;-— TYPET-Adl C23 * S -TU* 

NEWNAMEC'4 00 REAL'S 0,0)> T3 , IOClASS : = TYPES; % 

NAMETAB3t0^THISlNDEx]!=T3;% 
-AL-F-A-T-YPE:=T-3J=3; ----- -- %*** "ALFA" *** 

T 1. FORM := ALFA; TYPeT ABi C 3] ; =T i i % 

NEWNAME C"400ALFA">0,0); 7 3 , I DCuASS 5 = T YPES; X 
-N AML-TAB-3C Of TH-I-S-INDE ?<-]! -P3;% 

BQQLTYPE:=T3«=4; **** "BQULEAN" *** 

ti,form;=symbolic; typetabiC43 :=ri; typetab3[43 \ = u% 

-NE-WNAME(-"-7B00LEA%- , - , N'S ) ;— T-3 , 1 UCLA 35 5 =T YPES ; X 

NAMETAB3C0>THISINDEX3 : = T3;% 

CHARTYPE:=T35=5; %*** "CHAR" **■* 

-T-1-, FORM : =CHAR-; --T-Y-PE-T-AB 1 1 5 ] J = T 1 ; - - T YPETAB3 C 3 J J =63; % 

NEWNAMEC"400CHAR%0,0); T3.IDCLASS: = TYPES;:S 

NAMETAB3C0*THISINDEx3:=T3;% 
-T-3:-=B00LTY-PE-; T-3-. -If) CLASS : = CQNS \> **** "FALSE" *** 

NEWNAME( M 50FAL5E"»0,Q); NAMET Ad 3[ 0* TH IS INDEX 3 J =T3; % 

T3.lNF0$=i; %*** "TRUE" *** 

-NEWMAME-(^400-T-RUE-^0,0);- -NAMET Ab3[ 0, TH 131 NDEX 3* =T3; % 

NUMTYPES*s5;S 

NILTYPF.:=-i; £*** TYPE OF "NIL" *** 

-E-MPT-YSET-tB-2/- - **** TYPE OF [3 *** 

NEWMAME("6MAXINT'%0,0); T3: = INJTYPE; %*** "MAX1NT" *** 

T3,IDCLASSS=C0NST; T3 , INFU 5 =1024; % 
-NAME-TAB 3 [-0*-T-HI-S-I-NDEx-]-J-=T-3;% - 

NUMC0NSTS;=i; CONStTABT 1 J » =MAXINTi X 



-T-3-:=0;-.-T-3-,-lDCLASS:=PRaC'- ■■ 
FOR A5="3000GET% "3OOONEW, 
"400READ", "6READLN", 



%*** PROCEDURES *** 
"4Q0PACK", "400PAGE", "300QPUT">% 
"5QRESET", "6UNPACK", "50WRITE" D0% 



-BEG-I-NX- _ ^ 

NEWNAME C A, 0,0); NAMETAB3[0>THISlNUEX3lsT3;* 

end;* 

-NEWNAME 
NEWNAME 
NEWNAME 



.CI'ZDlSPOS-'M'E-'-SO);. 
("7REWRIT"*"F , S0); 
("7WRITEL'S"N'S0); 



NAMETAB3[0,THISINUEX3;=T3;iS 

NAMETAB3C0,THISINDEX3!=T3;« 
NAMErAB3C0>THISlNUEXJI=T3;J8 



T3.IDC 
FOR a: 



LASS:=FUNC; 
="3000ABS'S 

-'^OOEOLN'S- 
"400SUCC", 
"50TRUNC"* 

-'-'400USE-R»-^ 

INK 



"6ARCTAN", 

"-3000E-XP-"-* 
"5ORQ1JND", 

"6C0NCAT'% 

•»-30000RD»-X- 



£*** FUNCTIONS 



"3000CHR", 
"2000QLN", 
"3QO0SIN", 
"4QUTIME", 



"3000CQS"* 
"300000D"> 
"30Q0SGR", 
"40QDATE"' 



*** 

"3000EUF"*% 

"400PRED'S% 

"400SQRT",% 

"6I0TIME">% 



DO BEG 

NEWNAME (A, 0,0); NAMET A8 3[0*rHISXNDEX3:sT3;x 

-end;* - - - 

NEWNAM 
NEWNAM 



!E("7ELAPSE"*"D"*0); 
1E("7WEEKDA"*"Y ,, '0); 



NAMETA33C0,THISINUEX3«=T3;% 
NAMErA3 3[0,THISIisOEX3:=Tj;% 



texttype!=t38=numty p es:=numtypes+i; %*** "text" *** 

ti ;= textfile; ti, struct s= i; typetabictexttype3 
-t-3-.-i-0class-: = .-.types-; ■-%■ - 

NEWNAME("400TEXT'SO,0); NAMET AB3C0»THISIN0EX]:bT3;x 
T3:=TEXTTYPE/ T3.IDCLASS8=VAR; %*** "INPUT" *** 

-T-3rE-X-T-ERNALF-ILE-:-=-l-;% 

NEWNAMEC"50INPUT%0,0); I NPUTF UE i = TH I 5 INDEX; % 



= ti; % 



00510 

0U511 

00512 

00513 

00514 

00515 

00516 

00517 

00518 

00519 

00520 

00521 

00522 

00523 

00524 

00525 

00526 

00527 

00528 

00529 

00530 

00531 

00532 

00533 

00534 

00535 

00536 

00537 

00538 

00539 

00540 

00541 

00542 

00543 

00544 

00545 

00546 

00547 

00548 
00549 
00550 
00551 
00552 
00553 
00554 
00555 
00556 
00557 
00558 
00559 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
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N 
N 

N 
END 
-% 
% 
% 

***** 
* 
-DLE-IN 

REAL 

-LN-T-EG 

% 

PRUCE 
-V-ALUE- 

REAU 

INTEG 
-BQULE 

BEGIN 

N 

1 



AMET 
E-WNA 
AMET 
F IN 



A83C 
MEC-"- 
AB3C 
TIAL 



0#THISlNOEx3* s T3;* 

60utput- w -*o,oo;— 

0*THISINDEx] :=T3; 
IZE'% 



**** "OUTPUT" *** 
JUrPUTFILE5=rHIalNDEX;% 



END 
-% — 



-XREF-- ROUTINES- *-** - 

****************** 

E--XREFCARD-=Cl6U-73#>* -• - 

XREFBL0CK=C26J10]#;% 
AO*BO#Al»Bl»UASTAO#LASTAi;X 
ER-NL,LAS-TBLQCK>A2,AX;% 

DURE NEWXREF(NAME1,NAME2*TABLE*0ECL);X 

-N-A M E-UN A M E 2-> -T-A B L E ,-D E C L i-% 

NAMEl,NAME2/% 
ER TABLEU 

an~decl;.* -• - 

% 

l:=namei.namelength;% 

E_-hL<7„XHEN.-NAKEl»sO&NAMElCUMi:6]4NAMElC3b»6xNL-"l*6xNUU 
EL5E NAME2!=0&NAME2C35*6x(Nu-6)-ll6xCNL-6)];X 
AX! = CARDCNT; AX . XREFBLQCK ! =6L0CKTA8C TABLE 3 ; A 
.I.E.. DECU-T-HEN.-AX-lsAX-tOOOOOOOOOOO'X . . 

write(xreffile**»namei*name2#ax^u 
of newxref;* 



PROCEDURE 
ARRAY ACO 

-BEGIN* 

ACQ] 5 

END OF XR 

.% 



XREFMAXCA);% 
3;* 



= "AZ 
EFMA 



ZZZZZ"; A[1]«="ZZZZZZ"/ AC23 :=9999999999;* 

x;* 



% 

BOOLEAN P 
-ARRA-Y-A#B. 
BEGINS 

AO!=A 

XREF-C 

IF AO 
IF Al 

--IF. AO 

A[23 
END OF XR 
_% 



ROCEDURE XREFCqMPARE(A,3);* 

[03;.* -._ * 

[03; B0J=B[03; Al : =AC 1 3 ; Bi:=3[l];* 

OMPARE.:=* . . 

.C35:363Xb0,[-35 ! 36] THEN AO . [ 35 ! 36 3<B0 , C 35 : 36 3 ELSE* 

th\ THEN AKB1 ELSE* 

/BO .THeN„ AO.NAN'.ELENGTH<BO.NAMELENGTH else* 

LEO B[23;% 

EFCOMPaKE/S. 



O 



PROCEDURE PRlNTXREF(FINiS#A)J% 
-VALUE- EI N.I-S/ --BOOLEAN F-lMbjX - - 
ARRAY A[.03;% 
BEGINS 

I.r_K-lN-l-S-THE-N%-- - - - 

BEGIN* 

WR IT E ( L I NES M / > XReFL 1 NE C * J ) J * 

closfi-c lines);/, ... 

closecxreffild;% 



00567 
00568 
00569 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00578 
00579 
00580 
00581 
00582 
00583 
00584 
00585 
00586 
00587 
00588 
00589 
00590 
00591 
00592 
00593 
00594 

00595 
00596 
0059? 
00598 
00599 
00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00608 
00609 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00618 
00619 
00620 
00621 
00622 
00623 
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END 

% 

J! 



END/, 
ELSE* 
BEGIN* 
A0l=AE03; 
__.If-...AO = LAS 
BEGIN* 
IF NUHX 

BEG IN % 

WHITE 
IF LI 

- -- XREFP 

REPLA 

END;* 
REPLACE 

xrefpnt 
end else* 

—IF A2<0--T 
BEGINS, 
A2:=A2+ 

WRI-1ECL 

IF LINE 
XREFPNT 
REPLACE 
TEXTCO] 
REPLACE 

— TEXT-E-O-J 

IF AO.N 
REPLACE 

- - -REPLACE 
XREFPNT 

end; a 

-ENIU* . .- 

OF PRINTXRE 



Ai:=A[l]i A2:= 
TAO- AND- Al=LASTAl 

REF=ib THEN* 

(lines* j7*xreflin 
necnt>l.InespeRPa& 

NT:=PQIN-tERCxREFL 

ce xrefpnt by " " 

xrefpnt by a2.xr 
;=xretpnt+7; num 



A[2J>% 

. AND A2.XREFBLQCKPLASTBLUCK THEN* 



Et*]); LlNECNT* a LlNECNT+X;* 
E THEN HEADING;* 

INEC*3)J NUMXREF:=o;s 
FOR 17 words; XREFPNT;=XREFPNT+24;» 

EFCARD FOR 5 DIGITS;* 
XREF JsNUMXREF + lJ* 



HEN* 

lOOOO 
INES, 

CNT>L 
J = P0I 

XREF 
:=A0. 

XREF 
:=LAS 

AMELE 

XREF 

- XREF 

:=XRE 



OOOoOOO 
l-7*xREF 
INEsPER 
NTErCXK 
PNT -BY 
C 35 J 36 3 
PNT BY 
TA3-:=A1- 
NGTH>6 
PMT+6 B 
PNT+17- 
FPNt+24 



;* 

LINEE 
PAGE 
F.FLIN 
».., " p 

; la 
textp 

i% ... 

THEN 3; 
Y TEX 

BY- A2 

; la 



*3); linecnt:=linecnt+i;% 
then heading;* 
eemj; numxref:=o;* 
or 17 words;* 

STAO!sAO;% 

NT+1 FUR AQ.NAMELENGTH,* 



1PNT+1 FOR AO.NAMELENGTH-6/X 
.XREFCARD FOR 5 DIGITS;* 
STB LUC K!=A2.XREFB LOCK; % 



% 

INTEGER 
-% 

DEFINE 

BEGIN* 

— I F- - 

IF 



f;% 



TTl*TT2*Fl*F2#Li#R"r;% 
CHECKTYPESCLEFTTYPE > RIGHT 



LEFT TYPE 
LEFTTYPE 
BEGIN* 

■- l-t:=leftt 

TT1:=1YPE 

F15=TT1,F 

• -IF LU'REA 

IFCFl^SET 

IFCF1/P0E 

- -BEGIN* -•■ 

IF F1 = S 

BEGIN* 

LTJ=-T 

T1 i: = 
Fi:=T 



>0 AND -RiGHT-7-YPE> 
/RlGHTTYpE THEN* 

ype; - - - RT-:=R 
1AB1ELT3; TT2:= 
orm; F2!=T 
LTYPE 0R-F2/NUMER 
AND LT^eMPTYSET) 
NTERS AND LT/NlLT 



TYPE)=* 
O-THENX 



IGHTTYPt;* 

TYPETAB1ERTJ;* 

T 2, form;* 

IC THEN* 

URCF2XSET AND RT^EMPT YSET JTHENX 

YPEJ0RCF2/P0INTERS AND RT/NlLT YPE ) THEN* 



et and p?i=SET then: 



Tl.SETTYpE;- R 

typetab1[lt3; t 
ti.furm; f 



tj=tt2.settype;% 
1 2!=typetab1ert];* 
2;=H2,form;* 



IF Fl=P0lNTERS AND F2=PQlNTLRS THEN* 



00624 
0.0625 
00626 
00627 
00628 
00629 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00638 
00639 
00640 
00641 

00642 
00643 
00644 
00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 
00654 
00655 
00656 
00657 
00658 
00659 
00660 
00661 
00662 
00663 
00664 

00665 
00666 
00667 
00668 
00669 
00670 
00671 
00672 
00673 
00674 
00675 
00676 
00677 
00678 
00679 
00680 



u 



o 

O 
O 
O 

o 
o 

o 
o 
o 
o 
o 
o 
o 
c 
o 



o 



Ill 

o 

o 
o 

o 

> 

E 

o 

j_ 

jo 



.' — *• 

U 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 



.. E 

END 
END OF 



BEGIN 

. _.u: 

TT1 

Fll 

.end;% 

WHILE 
BEGIN 

WHILE- 
BEGIN 
IF LT 
-IF...LT 
IF Fl 
IF Fl 

no;s.- 

CHECKT 



sT-Tl.POINT-TYPEj- 
:=TYPETAB1[LT]; 

sTti.fqrm; 



rt;=ti2.pointtype;% 

TT2«= ! TYPE.TABlCRT]iX 
F2?=TT2,FQRM;% 



F1=SUBTYPe do* 

lts=tti.maintype; tu:=typetabieltj; Fl: 

-F 2* SUB TYPE DUX 

RTJ = TT2.MaIN1yPE; TTelsTYPETABURTi; F2 
>0 AND RT>0 THENX 

/RT THEN% - 

/NUMERIC Or F2/NUMR.RIC THEN* 
/CHAR OR F?/CHAR THEN ERR0R(17)/% 



ypes#;» 



-TT1.F0RM END/* 
=TT2.F0RM END/% 



% 

INTe 
-BOOL 

% 

DEE I 
-BE6I 



GER FILENAME'* 

EAN -lparfound;% 



NE FILER 

■N- 

INSYMBOL 
LPARFOUN 

IF-LPARF 
BEGINS 

INSYMB 
— IF-CUR 

BEGIN* 
SEAR 

IF..F 

BEGI 

IF 

BE 



-END- 



— END- -EN 
IF SYM 

END/% 
.I.F_FlLEN 

IF (FILE 

(FILE 

-0F--F-ILEP 



ARAM(DEFAULTFILF.) = %*** CHECKS THE FIRST PARAMETER TO SEE 

- %*.**. IF IT IS A FILE. 

; FlLENAMEjsCURTYPEt=0;X 
D:=CURSY-LPaR/% - 
ound --thenx 

ol;% 

SYslOENTlFlER THEN* - 

ch;% 

ouno-t.henx 

N% 

thisid,idclass=var THEN* 

Q I [\J% . . . 

curtype:=thisip,type;% 

if typetabucurtype].form>files then* 

BEGINS — -— •- 

FILENAME:=1000XTHISLEVEL+THISINDEX'X 

INSYMBQL'% 

D END END/%-- 

KINDCCURSY]=TERMINAL THEN EKR0RC46);* 

AMEs.Q_ THEN FILENAME !=DEFAULTFILE;X 
NAME=INPUTFiLE AND NOT INPUTDECL) OR* 

NAME=OUTPUTFlLE AND NOT UUTPUTDECLJ THEN ERR0R( 96 ) / % 
ARAM#/%-- 



-Lnj.ege-R-t.form;j! 

boolean s1gned/negative;% 

% 

..D£ F_I NE-CONSlANT.ee VAl/C-T. y RE )=- 
BEGIN 



if cursy=minus or cursy=plus thenx 

begin. .signeds = true; neg.atives=cuksy=minus;x 



**** <C0NSTANT> *** 



INSYMBOL/* 



00681 
00682 
00683 
00684 
00685 
00686 
00687 
00688 
00689 
00690 
00691 
00692 
00693 

00694 
00695 
00696 
00697 

00698 
00699 
00700 
00701 
00702 
00703 
00704 
00705 
00706 
00707 
OO7O8 
00709 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00718 
00719 
00720 
00721 
00722 
U0723 
00724 

00725 
00726 
00727 
00728 
00729 
00730 
00731 
00732 
00733 
00734 
00735 
00736 

00737 
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c 
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r-\ 
■■—/ 

c 

G 
G 
G 
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O 



O 

o 

c 



c 
c 
c 



J 






o 



{ 1 



o 



i ) 



■^ 



8 o 
o 
o 



o 
o 
o 

o 
o 
o 

o 



END ELSE SlQNED»=NEfiATIvE;*=FALSt;» 
-IF— CURSY-INTCONST- ThENX — _ 
BEGIN C1YPE5=INTTYPe;% 

cval:=if negative then -cuhval else cuRval;% 

-e-nd-el-se-x— . - - 

if cursy=charconst then% 

BEGIN If- SIGNED THEjvi EHR0R(29);* 

-C-T-Y-PEj = CHARTYpE/- -CV AL-* -sCuKV -AL/ % ■ - 



END ELSE* 

IF CURSY = REALCDNST THEN* 

-BE-G-I-N-C-T-Y-KE-:-«REAL-T-YpE-;X--— - - 

CVAL:=IF NEGATIVE THEN -CuHVAL ELSE CURVAL>X 
END ELStJS 

-I-F-CURSY=ALFACONST. THEN% — 

BEGIN IF SIGNED THE[v] ERRQR(29)/S 

IF CURLENGTH>7 Th£M ERRORCftl);» 
■■C-T-YPE:-=ALFA-T-YpE-;--- CVAL'=CURVALi% ■ ■ 



END ELSE% 
IF CURSY=IDENTIFIER THEN* 
-BEGINS - 

search;* 

if found then* 

— BEG-IN X — — - - 

IF THISTd»IDCLASs = COmST AND NOT BUULE AN C Trl I S I D . FORM AL ) THEN* 
BEGIN% 

-I F T-Y p E-T- A b-l-C T- H IS Ip»-TYP£]-.FURM<ALFA T H E N % 

BEGINS 

cval!=thisid.infq;% 

if~c-v-al->l-02 3-t-he'n -oval* =consttab c cv al-1q2 3 3 ; % 

ctype:=thisid.type;x 
if signed then* 

BEG-I-NX- 



TFORMIstYPET ABU THIS ID, TYPE], FORM;* 

IF TFORm^NUmERK AND TFCjKMXFLOATINQ THEN ERRDRC29) ELSE* 

lF-NE6ArI-V-E-THEN-CVAu:s-CVAL;» 

END/* 

end else begin error(a8); c val ! =ctype 5 =0 end;* 

end-else-begjn--e-rrqr-c-32); -x val :=c types so end;* 

end else begin errqrcpj c v al ! =c7 fpe 5 -0 end;* 
end else begin err0rc3?.)' c val '< =ct ype : = end/* 
-ins-ymbol;*- 



END OF CONSTANT*;* 

s page* 

* % 

% % 

% PART 3: THE SCANNER, % 

% mm - m — " «• m m _ •> - .* 

* % 

-%%%%%%%%%%%%7,%%%%%X%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% 

% INTERNAL INTERNAL SYMBOL 

.% SYMBOL NUMBER- NAME KIND 

% 



00738 

00739 

00740 

00741 

00742 

00743 

00744 

00743 

00746 

00747 

00748- 

UQ749 

00750 

00751 

00752 

00753 

00754 

00755 

00756 

00757 

00758 

00759 

00760 

00761 

00762 
00763 

00764 

00765 

00766 

00767 

00768 

00769 

00770 

00771 

00772 

00773 

00774 

00775 

00776 

00777 

0077 8 

00779 

00780 

00781 

00782 

00783 

00784 

00785 

00786 

00787 

00788 

00789 

00790 

00791 

00792" 

00793 

00794 
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O 
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*• — ' 



r~\ 



u 
O 

o 



o 
o 

o 
o 
o 
o 
o 



o 



o 
o 

o 
o 

> 

iO 

E 

o 

Ll_ 

IO 

3 

CO 

OJ 

o 

o 

s o 

o 
o 

u 



o 



o 



o 



o 



u 



O 



O 



% 

-%. 

% 

% 

-%- 

% 

% 

-%- 

% 

% 

JL. 

% 
% 



% 

% 
-%- 

% 

% 
-%_ 

% 

% 
-%. 

% 

% 
.%. 

% 

% 



% 
JL 

% 
% 

X. 
% 



% 
X 

% 

% 

% 
-%- 

% 

% 
.%.. 

% 

% 
..%- 

% 

% 



IDENTIFIER 

-122 

2.5 

"ABCD" 

jipji 

NOT 
* 

8, AND 

UIV 
.MOD 

+ 



-OR— - 

< 

< = 
.>.= ..... 

> 

<> 

IM 
C 
. ) 

C 

3 



LSS 
LEQ 

-GE-Q- 
GTR 
NEQ 

-EQL- 



< 



BEGIN 

END 
..IE. 

THEN 

ELSE 

CASE 

OF 

REPEAT 

UNI IL 

WHILE 

DQ 

FOR . . 

TO 

OOWNTO 

GO-TO 

NIL 

TYPE 
.ARRAY 

RECORD 

FILE 
.SET-.. - . 

CONST 

VAR 

LABEL- 

FUNCTION 



1 
2_ 

3 
4 

5 - 

6 
7 

- 8 

9 

10 
14_ 

12 

13 
Id 

15 

16 

1-7 

10 

19 

20 

21 
22 
23. 

24 

25 
26 

2^ 
28 

- ■ 29- 
30 

31 
32 

33 
3/4 

. - 35. 

36 
37 

-3 3- 

39 
40 

..41 
4 2 

43 
.. .44 

4 5 

a 6 
. .. 4 7- 

49 
. ... 5 0. 

51 
52 

■ • 5 3- 

5 4 
55 

_.. .56- 
57 



I DENT 
INTCU 
REALC 
ALFAC 
CHARC 
NOTSY 
ASTER 
SLASH 
ANDSY 
DIVSY 
MODSY 
PLUS 

MINUS 
ORSY 

LSSSY 
LEQSY 

GEQ3Y 
GTRSY 
NEQSY 
-EQLSY 

INSY 

LPAR 

RPAR 

LBRAC 

RBRAC 

DOUBL 

COMMA 

SEMIC 

DOT . 
ARROW 
COLON 
ASSIG 
BEGIN 
ENQ3Y 
IFSY 

THENS 

ELSES 

CASES 

OFSY 

REPEA 

UNTIL 

WHILE 

DOSY 

FUHSY 

TOSY 

DOWNT 

GOTOS 

NILSY 

TYPES 

ARRAY 

RE COR 

FILES 

SETSY 

CONST 

VARSY 

LABEL 

FUNCS 



IFIER 
NST 
ONST 
ON ST 

QNST- 
ISK 



KET 
KET 
EDOT 

OLON 



NSY 
SY 



Y 
Y 
Y . 

TSY 

SY 

SY 



USY 
Y 

Y 
3Y 

D3Y 

Y 

3Y 

3Y 
Y 



MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 

MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIODLE 

MIDDLE 

MIDDLE 

MIDDLE 

MIODLE 

MIDDLE 

TERMINAL 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

INITIAL 

TERMINAL 

INITIAL 

MIDDLE 

TERMINAL 

INITIAL 

MIDDLE 

INITIAL 

TERMINAL 

INITIAL 

MIDDLE 

INITIAL 

MIDDLE 

MIDDLE 

INITIAL 

MIDDLE 

INITIAL 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

INITIAL 

INITIAL 

INITIAL 

INITIAL 



U0795 

00796- 

0079f 

00798 

00799 

00800 

00801 

00802 

00803 

00804 

00805 

00806 

00807 
00806 

00809 
00810 

-00811 
00812 
00813 
00814 
00815 
00816 
00817 
00818 
00819 
00820 
00821 
00822 
00823 
00824 
00825 
00826 
00827 
00828 
00829 
00830 
00831 
00832 
00833 
00334 
.00835 
00836 
00837 
00838 
00839 

00840 
00841 
00842 
00843 
00844 
00845 
00846 
00847 
00848 
00849 
00850 
00851 
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o 



L, 



C 
O 
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O 

o 
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V 
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-.n 



'Q 



r- 



% PRQCEDUHE 5 3 PRUCSY INITIAL 00852 

% _ WIIH 59 - WITHSY INITIAL 0085.3 

'% ~ PROGRAM 60 PR0GRAM3Y }" l l}* L olllt ° 

% PACKED 61 PACKEDSY MIDDLE 00855 

_% . ■--- --- 00857 :' 

DEFINE BLANK=48#, EQUAL=61», QU0TE3=63#, DOLLAR^*,* 00858 

__ L ET-TERCC)»C17SC AND -C<25 )ORC 3i<C AND CS4D0KC50SC AND CSb7>#,4 00859. 

ALFANUM(C)=CLETTtRCC) OR Z<9)»}% 0086U 



u % 



00861 
00862 



__ REAL-CURVAL/X - - •-• Q 

ALPHA CURNAME1*CURNAME2,C*CX** oOflftJ 

O INTEGER CURLENGTH/LASTCHARPQS;% JJ°^ 

BOOLEAN-FIN IS; % - - 00866 

"O DEFINE NEXTCHAR=% oorar 

BE-GIN-CQMMENT *** READ- N EXT CHARACTER. *** }% 00868 

IF CHARCNT=0 THEN C;=BLANK ELSE* 00870 

BEG -? RE-PL-ACE CHARPNT BY CARDPNT * CARDPNT FOR iU °0«71 

s C:=CH[0]; CHARCNT:=CHARCNT-U* 0087? 
IO END END #;% 



% 00876 

* 00877 

RROCE-DURE-.I-NSYMBOU;-* - nnlva 

BEGIN COMMENT *** READS THE NEXT SYMBOL. ***'>% aalrl 

O INTEGER SCALE*EXP;X „"°'q 

boolean negexp;-* - — -- ■ 00 aai 

LABEL START#OVERFLOwiX Q0882 



00874 

00875 C) 



O % 



00883 

S-T-ART-J% — ~ 00884 

O BEGIN B SCAN CARDPNT: C ARDPNT FOR CH A HCNT I CH A RCNT WHILE »» »>» 00885 

IF CHARCNT = THEN-BEGIN -NtrtCAHO; GO TO START ENDJX 00886 

NEXTCHARJ% 00 ^ q 



O end;* 



00889 



-IF-LETTERCO-T-HENX 00 90 

BEGINS nnna* 

^nmr^rU.... .IIDM.Un !=r! C. I I H N A M F ? 1 = j 5K UU V 1 

00892 



O WHILE ALFANijMCC) DO NEXrCHAH;* 

end;* 

curnamei.namelengt 

O CASE CURLENGTH oF% 



00906 

00907 

BEGIN. ',% 0090Q 

cursy:=identifier;« uyua 

o 



c 

c 



O curlengthj=i; curnameij=c; curname2:=q;% 

----- NEXTCHAR;% iH'iPQ-4 

HHILE ALFANUMCC) AND CURLENGTH<6 DOS 00893 Q 

O BEGIN CURNAMEU=C&CURNAMEU35:29J303;% 0°894 

CURLENQTHisCURLENQTH+Xi NEXTCHAR;* 0U8VS 

^ EN0;% 00897 V " 

O IF CURLENGTH-6 jHENX 00898 

t\ f c t m % 

" ~ WHILE ALFANijM(C) AND CUKLENGTH<12 DO* 00899 Q 

O BEGIN CURNAuE2*=C&CURNAME2C35:29:30Ji% 00900 

.... . _CURLENGTH:=CURLENUTH + li NEXTCHAR^ 00901 

END;* onon? ^ 

,...it. c A> r- am-.u*' ^ » nn MTV rr.MAhi I * UUVOJ 



END . g _ 00904 - - 

CURNAMEl.NAMELENGTH:sCURLEN»irri;* ?,???? ^ 



c 

c 



o 

o 
o 
c 

> 

E 
o 

lo 

D 



o 

o 
o 

o 



o 

n 



O 
O 
O 



CURSY:=IF CURNAMEl="20000iF" 

— . - — ■ IF- CURNAMEl = "20000DU" 
IF CUFiNAMEi="20000FU" 
IF CURnAME1 = '»20000UK» 

IF CURnAME-1 = "20000uF" 

IF CURNAMEi5"20000iN" 
CURSY5=IF CURnAMEi="3000ENU" 

IF CUR|\!AMEl = "-3000FUK" 

IF CURnAME1 = "3000I)1V" 
IF CURnAME1="3000MUU" 

- - IF--CURNAME1 = "3000NIL" 

IF CURNAME1 = "3000A;\I0" 
IF CURNAMEI- ,, 3000NUT» 

IF CURNAMEt- ,f 3Q00VAR" 

IF CUR\iAM£t = "3000SEr" 
IF CURimAME1="3Q00L5S" 

- — IF- CURNAME-l = "-3000LEQ" 

IF CUR|vjAMEl = "30Q0GEQ» 
IF CURNAMEl="3000GTR" 
IF- CURnAME-1s"3000NEU m 
IF CURNAMEls"3000EaU" 
CURSY! = IF CURNAME1 = "400THEN'» 

- - - -IF..CURNAMEl=."400EL5E" 

IF CURnAME1s"400WITH" 
IF CURNAMEl a'^ooCASt" 

-.. ._. --IF...CURNAMEi = ,, 400GQTU , » 
IF CURmAME1="400TYPE" 
IF CURNAMEI="400FILE" 

-..CURSY; = IF.__CURNAME1=.'!50BEGIH" 
IF CURNAMEl = "50WH.lLE" 
IF CURNAME1«"50UNTIU" 

- _ IF.. XURNAME1='»50ARRaY" 

IF CURNAMEls«50C0NST" 
IF CURnAMEi="50LABEL" 

. CURSY;.= IF... CURnAMEi = "6RERE.AT." 
IF CURnAMEI="6D0WNTU» 
IF CUR|\!AMEt = "6REcORU" 

.. ..IF CU.RNAME.t = "6PACKED". 

CURSY:=IF CURNAMEts"7PR0GMA" 

_CURsY.:.rIF. CURNAME1=''8FUNCTI" 
CURSYislF CURnAMEi="9PR0CEU» 



END 

-IF-- 

BEG 



CURSY: = 
CURSY:= 

CURSY:.= 

END OF CA 

IF RESWQR 

-BEGIN .Tl« 

IF 

REP 

END J* 

OF LETTER 
C<-9. -THEN*-. 
I NX 



IDENTIFIER; % 10 

identifier; % 11 
identifier; %az 

DOPTIOn AND CURaYXIDEN 
sCARDLENGTH-CHARCNT-CU 
CHARCNt=0 then cakuhnt 
LACE XuINEPNT+Tl BY CA 



ELSE* 



THtN IF3Y ELSE* 
THEN DOSY ELSE* 
THEN TQSY ELSE* 
THEN GRSY ELSE* 

THEN QFSY ELSE* 

THEN INSY ELSE IDENTIFIERS 

THEN ENOSY ELSE* 

THEN FQRSY ELSE* 

THEN DIVSY ELSE* 

THEN MODSY EL.SE* 

THEN NILSY ELSE* 

THEN ANOSY ELSE* 

THEN NOTSY ELSE* 

THEN VARSY ELSE* 

THEN SETSY ELSE* 

THEN LSS5Y ELSE* 

THEN LEQSY ELSE* 

THEN GEQSY ElSE* 

THEN GTRSY ELSE* 

THEN NEQSY ELSE* 

THEN EQL3Y ELSE IDENTIFIER/* 

THEN THENSY ELSE* 

THEN ELSESY ELSE* 

THEN WITHSY ELSE* 

THEN CASESY ELSE* 

THEN QOTOSY ELSE* 

THEN TYPESY ELSE* 

THEN FILESY ELSE IDENTIFIER/* 

THEN BEGINSY ELSE* 

THEN WHILESY ELSE* 

THEN UNTILSY ELSE* 

THEN ARRAYSY ELSE* 

THEN C0NST3Y ELSE* 

THEN LABELSY ELSE IDENTIFIER/* 

THEN REPEATSY ELSE* 

THEN DOWNTOSY ELSE* 

THEN RECORDSY ELSE* 

THEN PACKEDSY ELSE IDENTIFIER/* 

AND CURNAME2s"M" THEN PROGRAmSYX 

ELSE IDENTIFIER;* 
AND CURNAME2="aN» THEN FUNCSY* 

ELSE IDENTIFIER/* 
AND CURNAME2="URE" THEN PROCSYS 

ELSE IDENTIFIER;* 
CHARACTERS. 

characters, 
characters. 

tifier then* 
rlength;*. 

:=CARDPNT+1 ELSE Tll=Tl-i;x 
RDPNT-CCUHLENGTH + U* 

FDR cuRlength;* 



00909 
00910 
00911 
00912 
00913 
00914 
00915 
00916 
00917 
00918 
00919 
00920 
00921 
00922 
00923 
00924 
00925 
00926 
00927 
00923 
00929 
00930 
00931 
00932 
00933 
00934 

00935 
00936 
00937 
00938 
00939 
00940 
00941 
00942 
00943 
00944 
00945 
00946 
00947 
00948 
00949 
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curvai„:=c; cur,sy: = intconstj* 
next-char; x - 

WHILE C<9 DO BEGIN CURVAL JsiOxCURVAL + Ci NEXTCHAp, END/* 
IF C = ",'» THEN% 

BEGINS 

NEXTCHAfl/% 
IF C^9 THEN?, 

- -BEGIN-CURS-Y-:^REAL"CONiT-;-« ------- 

DO BEGIN cURVAi:-10xCUHVAL + c;55 

scale«=scale-i; nextchar;* 

end-unt-i-l- 09; * 

end else if c=»," then c:=64 % special mark for ",," 

else ekr0r(4)/% 
..end; % — 

IF C="E" TH£N% 
BEGIN% 

CURSY-!=RE-AL-G0NSr; — NEx rCHARi-S • 

IF C="+" OR C-"-" THEN BEGIN NEGEXP ; =C="-"; NEXTCHAR END;* 
IF C<9 THEN% 

beg i n-exp-:=c-;-— ne-x-t-chak; *-- 

while c<9 uq begin exp 5 = lgxexp +c ; nextchar enu;% 

if negexp then exps=-exp;% 
end-el-se-erruru);-* — 

SCALE:=bCALE+EXP;% 

end;% 
-if-cursy- a realconst--thenx- --- 

BEGINS 

REALOvERFLOWS=OVERl"LOiN;« 



• 0/ 
- « 



u 



o 



CUHV.AL-«- a CURV.AL-X 10.* SCALE** 

REAL0VERFL0W:=0;% 

END ELSE* 
IF -.CURV.AL>MaXIN-T--T-HeN% - - ----- - 

BEGINS 

overflow: errorcu); curvalj=o; realoverflows = o;% 

£nu.;% - -- . 



END OF DIGIT EL3E2 
IF C=QUOTES THEN* 
-BEGIN*. 



o 
o 
o 
o 

o 



^ 



cursy:=alfaconst; curlength:=o; nextchar;* 
fihisi=false;x 

-Q0--BEG-I-N* — 

IF C-QUflTES THEN BEGIN NliXTCHARi Fl MS ? »C/ QUOTES END ELSE* 

IF CHARCNT = Q THEN BEGIN ERRUKC6); FINISJ=TRUE END;* 

— - 1 F- N QT--F-I-N I S -1-H F;NS. 

BEGINS 

replace stringpnt+curlength by charpnt for i)% 

- .curleng-th-:-=curle-ngth+i;x 

nextchar;* 

END END UNTIL FlNIS;% 
-IF— CUR LENGTH = -r-H EN -ERROR (41- ELSE% 

IF curlength=i then* 

BEGIN CURSY J=CHaRCUw3T;% 
REPLACE-CHARP-N.T— BY. STKlNGPNT FOR i* CURVAL ! =CHC03 *% 

END ELSE* 

IF CURLENGTH<7 jHEN-K 

-BEG-I-N-TE-XTC-00 : = »-- «}%.- 

REPLACE TfXTPNT BY STKINQF'NT FOR CURLENGTHJ* 
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cu«val:btextcoj;j; 

end; % — - - - - 

of strings else* 



END 
BEGIN* 

CURS-Y-lsSYMBQL-CCj;. -NEXT-CHAR;.* ... 

IF CURSY=COLON AND C=EQUAL THEN* 
BEGIN CURSY.'sASSlGNSY/ NEXTCHAR 
■CUR3-Y = D0T ANd--C = "-."--THEN* - 

begin cursy:=oouhledot; NEXTCHAR 
and c-equal then* 
=leqs-y;-nextchar end 
and c = ,, >" then* 

begin cursytsneqsy/ nextchar end 

.CURSY = GTNSY--aND -C = FUUAL 'MEN*. 

=GEQSY; NEXTCHAR END 
C = "*" THEuX 



-IF- 



IF 



IF 



I.F- 

IF 



CURSY = I.SSSY 

BEGIN-CURS-Y-: 

CURSY=LSSSY 



CURSY 



BEGIN 

CURSY = I.PAR AnD 
-BEGIN 

nextchar;x 
if c=dqllar 

- - do-be gi-nx-- 

nextchar; 

IF CX="L" 



END ELSE'* 
END ELSE* 
ELSE* 
ELSE* 
ELSE* 



THEN 



■ . . - * *** COMMENT *** 
% DOLLAR INDICATES COMPILER OPTIONS, 



cxs-c; 

THEN 



NEXTCHAK/S5 
IF C=l THEN HEADINGS 

ELSE LISTOPTlON! = C = »' + '» 
RESWOROUPTIUN;=C = ' , + " 

CHECKOPTIQU:=C="+" 
DUMPOPTlUN;=C="+" 
XREFOPTlUN:sc = « , + " 



ELSE* 
ELSE* 
ELSE% 
ELSE* 
ELSE* 



NRITECPASCALG0L>ALIST)* 
WRITECHASCALGQL^NOALIST) 



ELSE* 



CARDLENGTHjX 



END 
•ENDJ*- 

of insymbol;* 



IF CX="R" THEN 
IF CX="C" THEN 
IF. -CX = "D". .THEN- 
IF CX="X" THEN 
IF CX-"A" THEN* 
.IF c="+» THEN 
ELSE 
IF C X - " T " THE N ^ 
.. .BEGIN.. LASTCHARPOS. .:=. CM A RCNT 
CARnLENQTH:alOxc>SJ 
N EXT CHAR ; cARDLENGTH 5 s CAROL ENGTH+C' * 

IF-cARDlENGTH<9 OR.CARDLENGTH>QO THEN* 

BEGjN ERR0R(i4); C AKULENGTH J = 72 END;* 

cha«cnt:=maxco»lastcharpfjs + cardlength-l )^ 

■ end;* 

nextchar;% 
end until c/">";* 
finis.: =fals[.-;% 

DO BEGIN* 

IF CX'»*" jHENl 
. SCAN. - CAROp.NTlCAHDPNT FUR CHARCNT '• CHARCNT UNTIL -»*"}% 

IF charcnt=o then newcard else% 
begin nextchar;* 

-. .WH I uE-C = !'■*-" DO NEXTCHARiX 

finis;=c=")";% 
END END UNTiL FINIS;* 

nextchar;% _ 

go to start;* 
of comment;* 



END 
S PAGE* 
— %%%%%%%%%%%%%%%%%%%%%%%%%%%%X%iH%tA^%%Ti-A%%%%%%-i-i%%%%%%%%%%%%%%%%%%%%%%% 
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PART 4! EXPRESSION PARSER. 



o 
to 

E 
o 

1° 

o 
9 

o 
o 
o 
o 
o 
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o 
o 

o 



% 

-X - . 

_% 

% 
% 

% 
% 

-PROCEDURE -EXPRESSION ■ fQRWaRDj% 
PROCEDURE CQNCAT^ FORWARD;* 
% 

-alpha -tempsym;* -• - 

REAL SX;* 

INTEGER EXPRLEVEU*TX;^ 
-■%- - - - 

DEFINE PUTTEXTCT)=S 
BEGINS 

IF-NUMSYMS = MAXSYMS THEN*- - 

BEGIN ERR0RC71 ))% 
NUMSYMSj=i;% 

- -END -ELSE- NUMSYM5-:=NiiMSYMS + i;» 

SYM7ABCNUMSYMS3|st;* 
END OF PUTTFXT *>% 

-%- .. . . 

DEFINE PUTSYM(S)=X 
BEGIN* 

T- E M P S Y M : = C S ) 1 1 [ a 1 ; 5 ; 6 ] ',% 

PUTTEXTCTEMPSYM)/* 
END OF PUTSYM #i% 

V 

DEFINE f'UTCUNST(VAL)e% 

BEGINX 

PUTTEXTC"2000000 M );■«•-- -- - 

PUTTEXT(VALj;% 

END OF PUTCUNST #;% 
.% 

DEFINE PUTDUMMYsX 
BEGINS 

pUT-TEXTC'-'3000000");% - 

END OF PUTDUMMY Vi% 

/a 

-DEF_INE-PUTID(L#NUM,NUMDlG)*X~ - 
BEGIN% 

TEXTtO]:=" « & L C35;5:6]/^ 

REPLACE TEXTPNT + 2 By -NUN FOR -NUMUIG DIGITS}* 

PUTTEXTCTEXTC03 )>% 
END OF PUTID#/S. 

• X- - ... .. 

DEFINE WRITEEXPR=% 
BEGIN% 

-_-.- -FOR Tl i =1 -STEP 1 UNTIL-NUMSYMS U0% 
BEGIN* 

SX:=SYMTAB[TU; TX ; =SX , [ 41 1 6] }% 

— — • IF TX = THEN GEN(-SX*-7*2 ) ELSE% 

IF rx=3 THEN ELSE* 
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IF TX»1 THEN GENC5X,W) ELSE* 
--— -BEG I NX- 

tu=ti + i; sX;ssYMTAB[TU;a! 
IF SX.[44:6]=0 THEN GENINHSX) 

_~ END-END/.% 

NUMSYMS!=0;% 
END OF hRlTEEXPR#;« 

■%■-- - ■-■ - - 

% 

DEFINE CHECKEXPRCLlIMfULlNOs* 

BE-GINX--- - 

puttextc"checkc");% 
expression;* 
_.. p-uts.ymc","); putconst-cllimjix 

PUTSYMC"*"); PUTCOnST(IJLIM)J% 
PUTSYMC","); RUTCO W STCCARDCNT)J:5 

PUT3YMC "-)**);% - 

OF CHECKEXPR#;% 



ELSE QENREALCSX);X 



ENU 

% 



SIMPLEVARIABLE*1NSIL)EBRACKE.T3;X 
NUMP01NTERS; % 



BDULEAN 
INTEGER 

PROCEDURE VARIABLES 
BEGIN* 

INTEGER- START3YM>LLiM,U|.IM;% 

REAL H% 

BOOLEAN INBRACKET,1nRECQRD;x 
LABEL.-ADDADDRU . 



% 



VARIABLE IN 
RECORD USED 



(J 



startsyh:=mumsyms + u% 
. -IE ..i:.hislevel>curlevel .then . . * 

BEGIN a! 

t5=displaycthislevel3;% 

u;=x..e.irsiw.i.thsym; t5; = t.lastwithsym;;s 

for t3i=t4 step 1 until t5 do puttext ( w itht abct3 1 )}% 
inrecord:=true;% 

INBRaCKETJ^BOOLEANCT.BRACKETSINWITH ))% 

numpointersj=numpointfRs+t.numpntrsinnith^ 
simplevariable:=f a lse;^ 

curt-ype:=-t.rectype> t* a typetabucurtype3i* 

GO to addaodr;* 
end;* 

—IF. IHISLEVElM -AND- TH I SLEV£L<CURLE VtL THEN EKR0R(5);X 
CURT YPE:=THIS ID, TYPe; SlMPLEVARlABLE:=rRUE;^ 
PUTID("V"M000xTHISlEVEL + THISIN0EX»5);^ 

—i-ns-ymbol;% -. -- 

if cursy = lbracket or cursy=dqt or curs y = arrq«n then* 

BEGIN* 

SIMPLE VARIABLE-: sF-ALSE.;*— - 

DO BEGINS 

IF CURSY=LBRACK E T THEN* 

— BEGIN*- - _ 

IF NOTCINBRACkET OR INRECURD) THEN* 
BEGIN PUTSYMC»[»); I NBR ACKET : =TRUE EiNDJ* 
DO -..BEGINS, 

T!=TYPETAei[CURTYPE3;* 



FIELD LIST OF 

IN WITH-STATEMENT. 
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LLIM 

_.. if— T- 

IF I 

INSY 

— IF- C 

CHF.C 

CURT 

-IF I 

BEG I 

IF 

I F- 

PU 

IF 

- --■ BE 

END 
END UN 
-IF- CUR 
BEGIN 



-ADD-ADDR-* 



__E-ND-E-L 

END OF B 

IF CURSY 

-BEGIN*-- 

IF NOT 

BEGIN 

— r-5 --T-Y-P 

IF T.F 

INSYMB 

-IF -CUR 

BEGINS 

SEAR 

IFF 

BEG I 
TH 

PU 

PU 

END 

..— EiMO-EL 

INRECO 

IN3YMB 

END-UF-D 

BEGIN % 

T'=TYp 
_....I.f_T-,F 

BEGIN* 
CURT 

IF -T- 

END EL 

IF T,F 

---BE-G-I-N% 

SYMT 

PU 
CUR-T- 
END EL 
IF T.F 



:=TYP 
.FORM 

NRECQ 
MBOL/ 
HECKO 

KTYPE 
YpEi = 
NRECQ 
NX 
LLIM 
-LLIM 

TSYMC 
TYPE 
GIN P 
ELSE 
TIL C 
3TXRB 
ERROR 
IF CU 
SE— IN 
RACKE 
= D0T 



ETAB2CCURTYFE]; ULlM:=TYPErAB3CCURTYPEJi% 

^ARRAYS THEN ERROR C 12 ); % 

RD THEN PUTTEXTC" +(")/* 

% 

P-TION- THEN CHECKEXPRCLLIM^ULIM) ELSE EXPRESSION** 

SCj.INxTYPE'CURTYPE)/^ 

i,aRRType;% 

RD THEN%- 



<0 THE 
>0-THE- 
")");% 
TAbICC 
UTSYMC 
IF TYP 
URSY/C 
RACKET 

rsy=rb 

SYMBOL 
TS ELS 

THeNS 



N BEGIN PUrSY^C" + , »)* HUTCONSTC-LLIM) END ELSE 
M- BEGIN PUTSYM(»-»); PUTCQNSTC LLIM) END;* 

URTYPE].3IZE>I THEN% 

«x!!); purCQNSTCTYPErABUCURTYPEl.SIZE) ENU;» 

etablccurrype3.struct>0 then putsym< », " ) ; z 
ommaj* 

-THEN* •■ 

SKIP(R3KACKET}i* 
RACKET THEN INSYMBOU* 
;% 
EX 



(INbKAC|<ET OR INRECUKU) THEN% 

PUTSYMC-'L'M; inbracket: = true END'Z 
E T- A BH-CufiT-Y-PE 3;-:<— 

orm^recqru then erkuk(12)is6 
ol;% 

SY=-I-OENrIF-lER THEN* 

CHTABCT.RECTAB) jK 

OUNO— THgNX 

N% 
lSlDl=NAMETAB3CTtKECTAB#THISINDEX3iX 

ts-ymc m +«o;x 

TCONSTCTHISIO.INFO); CURTYPE * = THI S\ D . TYPE* % 
ELSE BEGIN CRHUKU); CURTYPE:=0 END;% 
SE-BEGlN--ERR0R-(9)-i CURTYPE!=0 ENOJX 
RDJ=TRUF/% 

ol;^ 

UT-ELSE3J- - -- - 
CURSY=aRROw 

etabiccuRtypej;% 
orm=f-iles- then% - 



ype:st.filetype;a 
ypetabtccurtypej.struct=0 then puttextc" 

S F % 

urm=textfile then% 



c o 3 " ) ; % 



ABCNUM3yMS3:=SYMTaB[NUM5YmS] & "1" [35:5:6];% 

TSYMC"."); puttextc"lastch");x 

Y-PE-isCHARTY-pt;?— - 

SE% 

ORMsPOInTERS THENfe 



BE-G-I-N5K — - -- 

IF INBRACKET THEN PUTSYMC"]")/% 
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--EN 

END 

IF T 

BEGI 

IF 

WH 

— -BE 



E 
__ C 
END 
INS 
D-0 
UNT 
YPE 
N* 

IN 
ILE 
GIN 



nbracket*.=false;% 
f_nums-yms+„?<max3yms-ihln% 
egin% 
for tl :=n|jmsyhs step "1 until startsym du% 

_ S_Y.MT.AB[.T.l + 2.3.s sSYMTAB.E 7 .1] J 5i . . 

SYMTABISTaRTSYM] :=" memc m ;js 

SYMTABCSTARTSYM + n«=" (TS = ";% 
.NUMS.Y.MSS?NUMSY.MS + 2; - .NUMPJINTEKS*sNUMPOINTERS+i; 

INRECQROJsTRUE'* 

;nd else error(63);^ 

UR-T-YPE:s-T-,pOINT-TYPE>%- 

else begin errgrcih); curtypej=o end;* 
ymbql;? 



els 

ymbol;* 
f arrow; 



il cursyxlbRackEt and cursyxdot and cursy*arrqw;x 

TABIC CURT YpE],3TRUCT = THENX 

BRACKET THpN PUTSYMC"]");% 

NuMPOINTErS>0 do% 
-PU-T.TEXT-C"-1)DIV M );- PUTTEXTC" 1022*");* 

puttexic" r mod"); puitextc io22j");:s 

NUMPQ INTERS J = NUMPO INTERS- i;% 



'J 

o 



END 
..% .... 

% 

PRO 
-BEG 



EN 

end; 
end;.* 

4NS-I-DE 
CURMOD 
OF VAR 



o;%- 

% 

bracket.s.*sinbracke-t;*- 

es=number;x 

IABLE/X 



CEDURE PASSPARAMS/% 

IH% - - - - _. . . . 

integer npars,param,ptype#p*firstsym;x 
boolean f0rmalpr0c*check/5s 
-label-exit.;.%- - 



o 



r\ 



o 
o 
o 



putidc 
-p:=this 

FORMALP 
NPARSJ= 

■ IF- FORM 

INSYMBO 

IF CURS 

-BEGINS 

PUTSY 

DO BE 

INS 

IF 

PAR 

P.TY 

IF 

BEG 

C 



V"*l000xTHlSl.EVEL + THI5lNDbX*5);X 

ID, info; % - 

ROC :=B00LEAN( THIS ID, FORMAL )U 
PARAMTAB[P3; P*aP+jiX 

alproc -then npar3!=9999;^ 
l;s 

Y=LPAR TrfENX 



3KIPCRPAR); GO TO EXIT END;* 



GINX 

ymbol;.^- - ■•- . .. - 

NPARS=0 THEN BEGIN ERR0RC3); 
AM.'apARAMTAB[P3; P«sp + i;x 

pe.:.=p_aram..paramtype;% 

PARAM.PARAMKlND = CQNST THEi'U 
IN% 

HECK : = CHECKQP-TION-.- AND TYPETAB1 C PT YPE ] ♦FORM LEQ CHAR;* 
F CHECK THEN PUTTEXjC "CHECKC " ) ; % 
UTDUMMY; FIRsTSYMJ=NUMSYHi;% 
XPRLEVEL:=EXpRLEvEL+i;% - 

xpression; exprlevels=exprlevel-i;% 
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PUTSYM(")»)j end;* 



■PU-T-Ca,MSrcT.YPETAa2CPTYPtJ)r* 
PUTC0NSTCTYPETAB3CPTYPEJ )'r% 
PUTCONST(CArtDCNT); PUTS YM( " )" }; % 



THEN* 



PUTSYM( H *»)iX 
PUTSYM(»,» )i% 



EXI 



„.. EN 

IF 

Tl PU 

IF- 

ENDJ 



IF CURMUDE = BITPATTERN THEN* 
BEGIN SYMTAB[F-IRSTS>YM]!s" REALC"; 

IF CHFCK THEN* 
BEGINS 

PUTSYMC ","); 

PUTSYMC","); 
PUTSYMC'S"); 

------ EN D/-S 

END ELSE* 

IF PARAM.PARAMKlND=vAR 
-BEGINX- 

IF CURSY=IDENTIFIER THENi 
B£GIN% 

- - search;*, -- - - 

if found then* 

BEGINS 

IF THISIQ,-IDCL.ASS = VAR QRS 

THISID,IDCLASS=CONST AND BOOLEANC THI SID. FORMAL) THEN* 
BEGINS 

- IF--PARAM.PARAMFiuE = i THENS 

BEGINS 

CURTYPES=THISID.TYPE/% 
-PUT-ID(''V"»-10O0^rHl3L£VEL + THISlNDEX-5); 

PUTID( H F , M000XTHI5LEVEL + THISINDEX>5>; 
PUTI0C ,, I M »1000xTH13LEVEu+THlSl.MDEX#5);* 

iNSYMBOt;?- - - 

END ELS E S 
BEGINS 

variable;* 

if typetablccurtype] ,3truct>0 then* 

IF NOT SImPLEVARIaBlE THEN ERRURC92);% 

- - — end;*— 

end else begim errorcb); curtypej=o end;s 
end else begin errorcd' curtype:=0 end;* 

-• END ELSE BEGIm- ERR0R.(9);-CURTYPE;-0 END;S 

END ELSE* 

BEGINS 

■— LE-CURS-YsIOENT-IFlER THEN% . 
BEGINS 

search;* 
if- found- thens 

BEGINS 

if thisid.idclass^param.paramkind then errurc91)/s 
putidc"v'm000xthlslevel + thisindex>5>;* 

curtype:-if thisid.idclass=func then thisid.type else 

insymbol;s 

end else begin errqrcl); curtype:=q end;* 

end else begin err0rc9h curtype*=0 end;* 
end;s 

checktypescptype»curtype);s 
npars:=npars-i;:« 
if cursy=comma then putsymc">");% 

0- - UNTIL -CURSY/CqMMa;* - 

CIJRSYXRPAR THE^ BEGIN ERR0RC«9); SKIPCRPAR) ENd;s 
TSYM(")»);% 

CURSY=RPAR THEN INsYMBOLii 
% 



o;s 



01308 
U1309 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 

01313 
01319 
01320 
01321 
01322 
01323 
01324 

01325 

01326 

01327 

01328 

01329 

01330 

01331 

01332 

01333 

01334 

01335 

01336 

01337 

01338 

01339 

01340 

01341 

01342 

01343 

01344 

01345 

01346 

01347 

01348 

01349 

01350 

01351 

01352 

01353 

01354 

01355 

01356 

01357 

01358 
01359 
01360 
01361 
01362 
01363 
01364 



c 



l: 



^. 



o 



o 



o 
o 
o 
o 
o 
o 
o 



u 






o 



o 



! ) 



^o 



_= ^ 






U 



o 



V--' 



o 
o 
o 
o 
o 
o 
o 



ENU 



-%- 



if npars>0 and hot 
-curmode:=number;% 
of passparams;* 



FORMALPROC THEN EKHORC3);* 



PROCEDURE FACTOR* 
BEGIN 

._._. _i. 



%*** Factor *** 



— %- 



NTEGER STARTS-YM*STyPE^T-'*- 
OOLEAN FIRSTJ55 
EAL val;* 



EFINE PARAMETER^ 
EGIN3S 

I 

I 

B 



%*** CHFCK THAT THE FUNCTION HAS 1 PARAM. 



E 

:nd a 



NSYMB 
F CUR 
EGIN% 
-PUTS 
IF T 
IF C 
-PUTS 
NO EL 
F PAR 



OL'%- — 

sy=lpar then* 



ymc m c"); -insymbol* expression;* 
ypetabhcuRtype].form=numeric then curtype;=inttype;; 
ursy^rpar then begin errurc3); skip(rpar) end;% 
ym-<^-)"j; - if-cur5y = rpak then insymbol;* 
se errgrc3>;% 

AMETERtfJ% 



CURM 

IF C 

-BEG I 

SE 

IF 

-. .BE 



ODE 
URS 
NX- 
ARC 
FO 

G I N 
IF 

-T-HE 
IF 
BEG 

I 

C 
. ... I 
END 
IF 

-BEG 

I 
B 



:=number;% 
y=identifier 

UNO THEN% 

% - - 

mi sid 

THIS ID 

N-V-ARI 

THISID 

1N% 

F_ THIS 



THEN% 



. IUCLAS3 = VaR URS 

•IOCLASSbCONST AND BaQLEANC THISID , F ORMAL )% 

ABLE-Ei.SE*..- 

.IDCLASS = C0NST THEN* 



URTYPE 

NSYMBQ 

ELSE^ 

THISID 

IN* - 
F THIS 

EGIN3 
-INTEG 
IF CU 
BEGIN 

— ■ PUT 
IF 

END E 

-IF-CU 

BEGIN 

INS 

I. F _ 

BEG 



ID.lNFnS10y3_.THEN PUTCUNSTC THIS ID. INFO) » 

else put const (cons tt abc this id. info- 1023 j) ; 
!=thisid«type; curmudes=number;% 



*IDCLASS=FUNC THEN* 
TAB=0 THEN 



ER D 

RNaM 

% 

TEXT 

CURT 

LSEX 
RNAM 

% 

YMBO 
CURS 
IN 1 

I 
..„ I 

I 



umm-y-;jk-- - - 

Els"30G0ABS M 



THEN 



£*** INTRINSIC FUNCTION *** 



% "ABS" 



(•». abs'm; parameter; % 

ypf7realtype and cur type* i nl type then errqrc67);* 



El=."3000CHR n - THEN 



% "CHr" 



l;* 

y=upar TH£N% - - 

nsyhbol; CHECKExPRC0/63);% 

f typetabhcurtypej.form^numeric THEN ERR0RC67);x 

F-cURSY^RPAR THEN BEGIN ERRURC46); SKIPCRPAR) ENO;% 
F cURSY=RPAR THEN 1NSYMB0L>~ 
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END ELSE ERR0R(58)J% 
CuRT-YP-E-J "CHART If Pti* - 

END ELSE% 

IF CURNAME1="30Q0E0F" 
C U R N A M E-l = ^4 E L N " - 



an 

THEN* 



% "EOF'VEQLN" 



BEGIN* 

FlRST:=CURNAMEli 



"»3O00tUF M ;'<6 



,EUF" ELSE " 

BEGIN ERRQRU6); 
1NSYMBDLS 



THEN 



parameters 
then error c 67); x 
curmode:=bitpatterns 



X "QRD" 



.— F-I-UEPARAMC INPUT-Flut )/ « 

PUTIDC"r\FILENAME/5)S 

PUHEXTCIf FIRST THEN " 
-■ -IF-LPARF-OuND-T-HENS ■■ - 

BEGIN* 

IF cursy^Rpar then 

IF CURSysRPaR-THEN 

ends 
curtype:=boqltype^ 

•END-E-tSE-% 

IF CURNAME1="30000DD" 

BEGINS 

- puttextc"— odd"); 
if curtype^inttype 
curtype:=booltype; 

•END -ELSE-%- - - 

IF CURNAME1="3000QRU" THEN 
BEGINS 

... -P-u-T-S Y-M C-'-'-C » ) ; - -IN S Y 'A B U L ~> %- 
IF CURSY = u fJ AR IHEN* 
BEGIN* 

INSY-MBQU'- — EXPRESSIONS . ... 

IF rYPETABUCURTYPEJ.FORM>CHAR THEN 
IF CURSy/RPAR THEN BEGIN ERR0RC46); 
1 N s y-m B 1 r% - 

end else errqh(58);% 
curtype:=inttype; putsym<")«);x 

-END-ELSE% - - ■ 

IF CURNAMEt="400PRED" OR 'A 

CURNAMEU"400SUCC" then% 

-BEGINS 

first :=curname1="400pred"s 
puttextc'checkc"); in^ymbuls 
..__. i-f-cursy=lpar-then* 

BEGINS 

insymbql; expression;* 
rut-sy-mc-if- first ---then "-" else 



,EULN")S 



SKIP(RPAR) end; Si 



% "ODD" 



ERRQRC67);* 
SKIPCRPAR) ENDS 



"PRED"/"SOCC" 



); 



if typetabucurtypej.furm>char then 



PUTSYMC"1")S 
ERRtlRC67)S 



PUTSYMC"*"); 
— - -PUT-SYM (-»,.»..).;._.. 

PUTSYMC"/"); 
PUTSYMC»)");% 

IF- CURSy^RPAR 

IF CURSY-RPAR 
END ELSE BEGIN 

•END ELSE* - - 

IF CURNAME1="50R0UND" 
BEGIN* 

_ _ PU-T-T E X T- (-"- -R U N D *•- ) J - 
IF CURTYPE/REALTYPE 



PUTCONSTCTYPETAB2tCURTYPE3);% 
PUT-CONST C1YPETAB3CCURTYPE 3 )/X 
PUTC0N3TCCARDCNT)/* 



BEGIN 



-THEN 
THEN 
ERRQRC5B); 



INSYMQUL/* 



ERROR C 46); 



SKIPCRPAR) ENDS 



CURTYPE: = ENDS 



THEN 



* "ROUND" 



-PARAMETERS 
THEN ERR0RC673S 
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.MUMSYM 

... -PUT-CON 

CURTYP 

END ELSE 

-IF— CURNA 

BEGIN* 

PUTTEX 

NuMS-YM 

PUTCON 

IF CUR 

-END-ELSE 

IF CURNA 

BEGIN* 

• PUTTEX 

NUMSYM 

PUTCQN 

..__Ip...CUR 

CURTYP 

END ELSE 

IF- CURNA 

CONCAT E 

IF CURNA 

.BEG-INX-.. 

PUTTEX 

CURTYP 

■END-ELSE 

IF CURNA 

BEGIN* 

. - PUT-TEX 

CURTYP 

END ELSE 

-IH-CURNA 

BEGINS 

PUTTEX 
.„...CURTYp. 

END ELSE 

IF CURNA 

BECilNX- 

PUTTEX 

CURTYP 

END ELSE 

IF CURNa 

BEGINS 

PUTTEX 

CURTYP 

END ELSE 

BEGIN* 

PUTTEX 

CURTYP 

END....ELSE. 

BEGIN* 

PUTTEX 



S: = NjUMSYMS-i; 

s-t-(cardcnt); 
e:-inttype;* 



PUTSYMCS");* 
PUTSYMC")");* 



ME-l=?'-30oOSQrr , --THEN 



* "SQR" 



tc" sqm m ); 

S-: = NUMSYMS--li 

ST(CARDCNT)* 

TYPE/REALTYPE 

% 

MEl="50rRUNC" 

T-C" trunC"};.- 

s:=numsyms-i; 

st(cardcnt); 

t-yp-e^realtype- 

e:=inttype;* 

% 

MEU^CONCAT-*-'- 

LSE% 

ME1="400TIME" 



T("(TIMEC") 

£:=rEAltYPe 



parameter;* 
putsymc"*");* 

PUTSYMC")");* 

ANU CUHTYPE/INITYPE THEN ERRURC67)/* 



THEN 

parameter;* 

PUTSYM (">");* 
PUTSYMC")");* 
THEN ■ ERROR C 67);* 



* "TRUNC" 



THEN 
THEN 



* "CONCAT" 

* "TIME" 



PUl"TEXTC"l)/60)");* 

insymbul;* 



ME1="400DATE" THEN 



* "DATE" 



tc'curdat-");* 
e:=alfatype; 

* 

MEls-l'-ZELAPSE-'-'- 
TC'cTIMEC"); 

e-:=realt-ype;- 
% 

ME1="610TIME" 
TC'cTIMEC"); 

e:=realiype; 

% ._ „ 

me1="7weekda" 

tc.weekda");* 
ej=alfatype; 
if curmame1= 

TC" TIME"); 

es=alfatype; 



insymbol;* 

.and..„curname2 = "u" then * "elapsed" 
puttextc"2)/60)");* 

IN5YMB0L;* 



THEN 



* "IOTIME" 



puttextc"3)/6q)")/* 
insymbol;* 

anu curname2="y" then * "weekday" 



insymbol;* 

"400USEK" THEN * "USeR" 



PUTTEXTC" (-I,)");* 

iNbYMBQL;* 



* "SIN"/"COS" ETC, 



TClF CURNAME1 

- -IF-CURNAMEI- 

IF CURNAME1 

IF CURNAME1 

- -Tp CURNAME1 

" LN") 



="3U00SIN" THEN " SIN" ELSE* 

="J0Q0CUS" THEN » COS" ELSE* 

="6ARCTAN" THEN "ARCTAN" ELSE* 

="400SQRT" THEN " SQRT" ELSE* 

="3O00EXP" THEN " EXP" ELSE* 

;* 
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EN 
IF 
3E 



EN 

-- END 

END OF 

IF CUR 

-BEGIN* 

CONS 

END EL 

-IF- CUR 

BEGIN* 

PUTT 

INSY- 

IF C 

IF C 

„_. I F-C 

BEGI 

.-.-END/ 

END EL 

IF CUR 

•BEGIN* 

PUTC 

INSY 

-END-EL 

IF CUR 

BEGIN* 
--■PUTS 

INSY 

IF C 

PUTS 

INSY 

END EL 

IF-CUR 

BEGIN* 

INSY 

_..-IF C 

BEGI 

PU 

IN 

ENO 
BEGI 
.._ .. . .F.I 
DQ 



P 

I 

C 

END 

END -0 

BEGIN 

T! = 

- PAS 

CUR 

end;* 

D 0F- 

THIS 
GIN* 
ERROR 
CURTY 
ELS 
EL-SE- 
IUEN 
SY<CH 



T ER * * 

type-/realtype and curtype/ i nl t ype then err0rc67>>* 
es=realtype;* 



iO.TYPEi* 

»ms;x 
-t;,s 



ARAME 

F..CUR 

URTYP 

}% 

F- INTRI-N5IC FUNCTIONS ELSl* 

% 

THISI 

SPARA 

TYPE! 



functions else*- 

id.idcla3s-pr0c then* 

(68); paSsparams;*- 
pes=o;* 

E BEGIN FRRQRC69); CURTYPE:=o; INSYMBQL END/* 
BEGIN ERrDRC-1); CURTYREJ=0; INSYMBOL END;* 
TIFIER ELSE* 
ARCQNST jHENS 



TANTCVAL'C 

SE* 

SY = NOTSY -T- 

EXTC" NOT 

mbol; - F-AC 

URTYPE>0 T 
URTYPE*BOO 
tjRMODE = NUM 
N SYMTABCS 
CURMUDE; 

* . 

SE* 

sy=nilsy t 

onstco); 
mbol;* 

SEa — — 

SY=LPAR then* 



urtypej; putconstcval);* 

HEN* 

'»); putdummy; startsym:=numsyms;* 

TOR;*- 

HEN* 

LTYpE THEN BEGIN ERR0RC17); CuR'|YPEs=0 END;* 

BER--THEN*- - ■ 

tartsymi;-" bc; putsymc")");* 
=bitpattern;^ 



hen* 
curtype:=niltype;% 



YM( "("-);* - 

mbol; expr 

ursy/rpar 

ym(»)");* 

mbol;* 

SE* 

SY = LBRACKET -THEN 



ession;* 

the^ begin err0ru6)/ skip(rpar) end/* 



»*** SET CONSTANT *** 



MBOL/"* 

URSY=RBRAC 

N* 

TCONsrco); 

SYMBOL/* - 

ELSE* 

NX 

rs.tj.=true; 

BEGIN* 



KET-THEN* 

C U« TYPE :=EMPTY SET/ CURMQUt : =NUMBER; * 
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IF FI 
PUTTE- 
EXPRE 
IF ST 
-BEGIN 

END E 

IF-CU 

BEGIN 

PUT 

... INS 

IF 

BEG 



EN 
% 

.%_ 
PR 

BE 



E 
- END 
OF 



END 
END/% 

PUTS-Y 

IF CU 

END UNT 

-IF- CURS 

BEGIN E 

I 

- END ELS 

NEWTYPE 

T1,SETT 

-CuRl-YPE 

CURMODE 

no;% 

-OF.. SET- 
FACTORS 



RST T 
XT ( " - 
SSI ON 
YPE = 
ST-YP 
IF T 
ISE C 
RSY = D 
% 
SYM{" 

YMBOL 
STYPE 
IN ST 
_ IF 
El.SE 

M( ">-" 
RSY = C 
IL CU 
Y/RBR 

RRORC 

F CUR 

E INS 

; ti 

YPE: = 
:=TYP 
:=BIT 



HEN FIRST! 

--BlT-C- M )i 

}% 

THfN% 
E-J--cURr-YPE 

ypetab1ccu 
hecktypesc 

OUBlEDQT t 

/")> SYMT 
;. £ XPRE3S 
=0 THEN2 
YPE:=CURTY 
. TYpETArtlC 

chf.cktype 



>; — p. 

OMMA 

RSY/C 

ACKeT 

59); 

SY = R B 

YMBQL 

:=ScT 

STYpE 

EINdE 

PATTE 



UTCON 
THEN 

ommaj 

THEN 

SKIP 

RACKE 

}% 

; n 
; ty 
x;% 

RH',% 



= FALSL ELSE INSYMPUU* 
STAKT6YMI=NUMSYMSJ* 



n 

RTYPEJ*FOKM>CHAR THEN ERR0RC72)/* 
3TrPE#CjRTYPE>;» 

HEN* 

abestartsym] j=» bitsc;* 
ion;* 

P E > X 

CURfYPE].FORM>CHAR THEN ERR0R(72)iX 

scstype/curtype)/* 
stccahucnd; putsymc)");* 

PUTTEXrc" OR");* 

% 

A 

crbracked;* 

t then insym3ul;* 

. s i 2£ ; =1 js ti.struct:=o;x 

PETABUTYPEINDEX] J'TUX 



CONSTANT ELSE BEGIN ERR0RC99)/ INSYM80L END;* 



UCEDUHE TERM/ **** TERM *** 

G X N I*** ********* 

i.n.t.egeflst.art.sym*.mode*xypei*muluptr>f;x 

putdummy; startsym ; =numsyms;% 

FACTORS 

.....modes=curmode;% - -- 

WHILE CURSY>ASTERISK AND CURSY<Mt)DSY 
BEGINS 

T-YP-E-1-J = CURTYPE/ - -MULOpTR \ =CURSYJ X 

FJ=TYPETABUTYPEn.FORM;% 
IF FaNUMERIC OR FbFLOATING thln% 
BEGINS - - 

mude:=number;% 

if cursy a asterisk then put3ym("x") 

__ i f-cur sy = slash—-- -then- putsymc"/") 

if cursy=andsy then err0rc6/j) 

BEGINS 

I.F -F-=FLO AT-INQ- THEM- ERROR C 64 ) ; % 

IF CURSY=DIVSY THEN PUTTEXTC" 
END END else% 

_I E_ CURTYPE = BOO LT.Y.p E- - U H ■ F =. 3 E T. . T H E N % 

BEGIN* 

MODE:=8lTPATTERM/55 

IF... CURMQDE/MODE--THEN% 

BEGIN SYMTABCSTaRTSYM] :=" BC"/ 



DO % "*">"/"*"DIV">"MQD">"ANU" 



ELS EX 
ELSE& 
ELSE& 



DIV") ELSE PUTTEXTC MOD")^ 



putsymC")") end;% 
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PUT1EXTC AND " ) ; '4 
IF..CURSY*CIF F = sET. THEN ASTERISK ELSE ANDSY) THEN ERRURC64);* 

END ELSE ERR0R(64j;% 

putdummy; startsym;=numsyms;>- 
-i-ns-ymbdl; ■- FACT- OR-;-* 

IF CURTYPE>0 AND TYPE.l>0 THEN* 
BEGIN* 

— -IF-C-UR-TYPE-/-T-YPEt THEN* 

BEGIN* 

IF TYPETABICTyPEU. FORM/NUMERIC OR CURT YPE^REALTYPE THEN* 
CHECKTYPES-C-TYpE-l-^CURT-Yi 3 L)r/4 - 

IF TYPE1=REALTYPE then curtype:=rlaltype^ 

ZNQ',% 
-.-IF- CURTYPE-REALtY-PE-ANO- MULUPTR>DIVSY THEN ERR0R(65)J*> 

END>% 

IF MUL0PTR=SLASH THEN CURTYPE ; =REALTYPE; * 
-I-F-CURT-YPE = Q -THEN-CURTYPE:=-T-YPti;* 



END OF WHILE LOOP^ 

IF MODE=BITPATTERN AND cURMODE^HODE THENX 

-beg i-n-s-y-m-tabt st arts ym ]•:-•" bc"> putsymc")") end>% 

cur-iodej=mode;% 



END OF TERM;% 

* 

PROCEDURE SlMPLEEXPRESSlQN.! 

-BE-Q-I-N 

INTEGER STARTSYM>MOqE>TYPEI*F;% 

BOOLEAN SIGNED;* 



**** SIMPLE EXPRESSION *** 



putdummy; STARTSYM jsNUmSYMS»% 

IF CURSY=PLUS OR CUrSY=MINUS THEN% 

-BE-G-I-N~-S-I-GNED-:--T-RUE-Js - -- 

PUTSYMCIF CURsY=PLUS THEN"+" ELSE """)>» 
INSYMBOL/% 
_E-ND-iX---— - - - - 

term;* 
modes=curmode;% 

— i-f- signed- -t-hens -- - 

begin f;=typetabiccuRtypei.furm;» 

IF F/NUMERlC AND F/FLOATlNU THEN ERR0RC29 )iX 

--END** — 

WHILE CURSY2PLUS ANo CURSY<ORSY Do % " + "> "-••> "OR" 
BEGINS 

t-y-p-e-i ! ™cur-type;- - f:=-t-vpe-tabictypeu ,form;x 

IF F=NUM£RIC OR FsFLOaTING 1HEN% 

BEGIN M0DE5=NUMBER/% 

- IF-.CURSY=PLUS-T-HEN-PUTSYMC" + ") else;?, 

IF CURSYsMInUS THEN PUTSYMC"-") ELSE ERR0RC64m 

END ELSE* 
IF--CUR-TYPE-BOOLT-YpE -THENX 

BEGINS 

mode:=bitpattern;% 
if- curm0de-^m0de-the-n% 

BEGIN SYMTABCSTaRT5YM]:=" BC"J PUTSYmC")") EnD/% 
IF CURSY«QRSY THEN PUTTEXTC" OR") ELSE ERRQR(64);% 

END-ELSE-* - 

IF F=SET THENX 
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END 

-% — 
% 

PRUC 
-BEGI 



BEGI 

MO 

IF 
BE 

IE 

IF 
F.L 

--end 
insy 

PUTD 

T-e-RM 

IF C 
BEGI 

_ -IF 

BE 



END 
__IK._.c 
END OF 
IF MOD 
BEGIN- 
CURMOD 
OF SIM 



N£ 
DE 

C 
GI 
_C 

C 
SE 
LL 
MB 
UM 
',-% 
UR 
N* 

C 
GI 
IF 
CH 
IF 
EH 
UR 

W 
E = 
S-Y 
Es 
PL 



-:.^BIT.P-A-T-T-ERN'% - - 

URMOOE/MQDE THEn% 

N 3YMTABCSTARTSYM3:*" BC"; PUTSYMC")") END;% 

U R S-Y= PLUS- -T H E N - P UT-T-E X T-C-I' DR.") E L S E % 

URSY-MINUS THEN BEGIN PUTTEXTC" AND" ) > PUT TEXTC " 

ERRUR(64);% 
SE-EKR0R(64)/Jt- 

ol;% 

MY; STARTSyM*=NUMSYM5/* 



NOT ")END 



TYPE>0 AND TYPE1>0 THEN* 

UR.TYPE^TYPEl THEN* 

N% 

typetabictypeu.form^numekic qr curtypexrealtype THEN% 

ECKT-Y-PESCTYpEl*.cURTYPE)#* • - 

typei=realtype THEN CURTYPE*-=REALTYPE/X 
0}% 

T-YPE-0 then-curtype s=typei;& 

H T i f* i f l n P * % 

BITPATTERN AND CURMQDE/BlTPATTERN THEN* 

mt-ab-c starts ym 3 :=v- — .-bc"./ putsymc")") end/* 

=mode;% 

eexpression;* 



%*** EXPRESSION *** 

. ._ .. ., _. ... X****************.** 

startsym»firstsym>typei»keloptr#f;% 
callgen;% 



edure expression; 

INTEGER 
BOOLEAN 



EXPRL 

IF EX 

-BEGIN 

PUT 

FIR 

-eno;.% 

PUTDU 

PUTDU 

-SIMPL 

IF CU 

BEGIN 

_.. .T.YP 

REL 

IF 

BEG 

I 



EVLL5=EXPRLEVEL+1'% 
PRLEVEL = 1 THfc-NSS 

dummy; % 

stsym := numsyms;% 



STARTSYM;sNUHSYMS;» 



mmy; 
mmyu 

eexpression;% 
rsy>lsssy and 



CURSYSINSY THEN 



% "<","<",">",">","=","*"," IN" 



ptsT-Y-RET-AUl t TYPE 13. FORM; % 



El JsCURTY-P-EJ- 

optr :=cursy;% 

f<alfa thens 

in* - — -- ■■ 

F CURMQDE=BITPATTERN THENS 
BEGIN SYMTABCSTAKTSYM3 ; = " REALC'V 
-IE -CURSY = LSSS-Y THEN PUTSYMC"<") 
IF CURSY=LEQSY THEN 
IF CURSY=GEQSY yHEN 
■ IF- CURSY-GT-RSY- -THEM 
IF CURSY=EGLSY jHEN 
IF CUKSY-NEQSY THEN 

-BEG I NX- 

IF F>FLQATING THEN EURORC 64 ) ; * 



PUTSYM("<") 
PUTSYM(">") 
PUTSYM(">") 
PUTSYMC "=") 
PUTSt'MC'V") 



PUTSYMC")") 
ELSE* 
ELSE* 
ELSE% 
ELSE* 
ELSE* 
ELSE* 



end;* 
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END 

% 

_X .-.- 
DEF 
BEG 



symtabcstartsym] 
- end; % 

END ELSE?! 

IF F=SET THEN* 

— BEGIN*- ----- - - 

IF CURMQOE-HlTRATr 
BEGIN SYMTABCSTaKT 

IF CURSY=EQLSY -qR- 

BEGIN PUTSYMCIF CU 

END ELSE* 

BEGINS - - - - 

IF CURSY=LEQSY T 
IF CURSY=GEQSy T 

- PUTSYMC"*");- CA 

END END ELSE* 

IF F=PQINTERS THEN% 

— BEGIN* -■ ■ 

IF CURSY=EQLSY jHE 

if cursy-neqsy the 
end else-error (-64-) j % 

insymi3qux 

putoummy; startsym: 
simpleexpressiqn;* 

if curtype>0 and typ 

IF CURTYPEXTYPEl T 

-- -IF- reloptr/insy 

BEGIN* 

if typetabhty 

-.- checktypesctyp 

END ELSE* 
IF TYPETABUCuRT 
-- ELSE C 

if curmode=bltpatter 
begin symta8cstartsy 

if callgen then-puts 

curtype:=booltype; 

END;* 

-e-xprl-evel:=exprleve-l-i 
IF exprlevel=o then% 

BEGINS 

— IF- CURMODE s BITPATTER 
BEGINS 

SYMTABCFIRSTSYM] ; 

PUTSYM(<»)");« 

end;* 

writeexpr;* 

-end;* - - - - 

of expression;* 



jv'intstc"; putsymcs")/ callgen;=true;* 



ERN THEN* 

srM+n;=" realc; putsymcj") end;* 

CURSY=NE«SY THEN* 

RSY=EQLSY THEN "=" ELSE »/")}% 



HFN SYMTABCSTARTSYM] :="INCL1C" ELSE* 

Hi;N SYMTABCSTARTSYM] ;= ,, INCL2C» ELSE ERRQRC64); 

llgen;=tRue;* 



N PUTSYMC"=" J ELSE* 

N PUTSYMC"*") ELSE ERRURC64);* 



=NUMSYMS;* 

EI>0 THEN* 

HFN* 

THEN* 

PElUFURM/NUMERIC OR CURTYPEXREALTYPE THEN* 
El^CURTYPE);* 

YPE].FTRMXSET THEN ERRURC66)* 

HECK TYPESCTYPEUTYPET ABU CUR TYPE'J , SETTYPE)/* 

N THEN* 

M]S=" KEALC"; PUTSYMC")") END;* 

Ytf (" )*');* 

cuRmodl:=bitpmTtern;* 



W THEN* 

a " REALC";* 



INE 300LEXPR=* 

IN* 

-PUT-DUMMY-; EXPRLEVEu-Sa-i; ■■ EXPRESS IUN/* 

if curtype>0 then if" curtype^boultype then e.kruku7)j% 
if curmuoexbitpattern then* 

-begi-n-symtabcl] :-" b( "; puts y|.|( " 3" ) end/* 

exprlevel:=o; writeexpu;* 
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END OF B00U:XPRif}% 
-$-PAGE% 

% * 



% 
% 



PART 5! 



INTKINblC ROUTINES, 



% 



% 
% 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%n%%'*%%% U M%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% 

PROCEDURE CUNCAT* **** "CONCAT" *** 

BEGIN % **************** 

DE-F-INE -INTEXP-R = :4 

BEGIN INSYMBOU EXPRESSIONS 
IF CURTYPE>0 ]'HEN% 

_ IF TYpE-TA8UCijRTYPEKFURM/NUMERlC THEN EKRGRCl7)S 

END *S 



% 



THEN ERR0K(17J, 



END 

% 



.pu-ttextc'^concat-"-); - put-sym c '•» c" ) s 

insymbgls 

if cur3y=lpar then* 

-BEGINS 

insymbql; expression;* 
if curtype>0 then% 

.. „IF-TYPETABUCURTYpE3,F-0RM>ALFa 
IF CURSY=CDMMA THeNX 

Zi "" C* T \\ ^ 

"puisymc"'"); _ins.y.mbou..-.expkessiun;x 

IF CURTYPE>0 THeN% 

IF TYPETABHCURTYPE] ,form>alfa then ERRQR<17)*X 

IF....CURS.Y.«COMMA.-T-HEN% - .- 

BEGIN* 

putsymc*"); intexprs 

— - IF-CUrSYsCOMMa -THEN* -^ 

BEGINS 

PUTSYMC"*"); INTEXPRS 
— IF— cursv = comma then% 

BEGIN% 

putsymcmo; 

put S-Y m c " *-'i) ; 

putsymc")»);% 

if cursy/rpar then begln errqrc3); skip(rrar) ends 

end-el-se-begin- errors); sklpcrpar) ends 

end else begin err0rc3); smpcrpar) ends 
end else begin errurc3); skipcrpar) ends 
—-end- else- -begin errdrc-3) '> -slup crp ar) ends 

END ELSE BEGIN ERR0r(3); SKIP(RPAR) ENDS 

curtype:=realtypes 

I-F— cursy. = rpaR— t-hen-ins-y-mbol; * 

OF CONCATS 



INTEXPRS 
_PUTC-UNST(CARDCNT)S 



PRUCEDURE PREAD(CHANGELlNE)S 
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VALUE CHANGELINE; BOOLEAN CHANGELINt>X 
BEGIN*--- 

INTEGER FILEID*F;X 

BOOLEAN CHECK;* 
_ GENt _n-.f3t6 I-N"-#-7-*-2 ) r% - 

FILEPARAM(INPUTFILE); FlLEID:=F ILENAME/X 

IF TYPEI"AB1[CUHTYPE].F0RM=FILE5 THEN LRRQRC6 
I-F-3-YMK-INDt-CURSY3/-TERM-I-NAt— T-MEN» - 

BEGINS 

if cuksy neq rpar then* 

dq-beginx — 

while cuRsybcomma du insymbul;* 
if cursy=ioe.ntlf'ier then* 

BEGINS 



Jb);jt 



SEARCH/% 

IF FOUND THEN% 

-BEGI-N* - - — 

IF THlSID.IDcLAS3=VAR OR* 



THlSID.IDcLAS3=VAR OR* 

THISH).IDCLASS = CQNST AND BOOLE ANC TH I SI D , FORMAL ) TH 

---BEGIN*-- - 

VARIABLE; FJ=TYPETABlCCURTYPE3.F0RMiX 

IF F=NUMERlc OR F=FLOATlNG OR F=CHAR THEN* 

ar.ft.M?... __ 



EN* 




THEN 
BEGINS! 

— -GEN (-'*•, ? Vl/-7 3; 

GENINTCTY"" " 
GENINTCCA 

end;* — ■- - 

END ELSE BEGIN ERR0RC82)i 
END ELSE BEGIN ERROR(B); 
-END -Eu-SE-BEGlN -ERROR CI) ; 
END ELSE ERRQRCy);* 



/-•7); - -GENINT-C TYPE-TAB 2CCURTYPE]); 
PETAB3ICURTYPE]); GENC'% ", 1* 7 ) ; ! 
.RDCNT); GEN(")'M,7);* 



GEN (*'*"» \>f)'>% 



insymbol end;* 
insymbdl end;* 
insymbol end;* 



GENC";'M>7);% 

.eno-un-T-I-l-cursyxcomma;% ■ 
if cursy^rpar then begin f. 

t ,- /Mmpu-nDAn Tin-., TllrVulir' 



KR0KC46)/ 
CURSY=RPAR THEN INSYMBOL;* 



SKIPCRPAR) END;* 



END 
-%- - 



IF 
_r ND ;-*-— 
IF CHANGELINE THEN% 
BEGIN* 

GEN-URL I NE <-'-' > 6 * 2-1} — 

GENIDC"V"/FILEID>5); 
6ENlOC"rSFILElD#5)i 

-end;*-- - - — — - 

GENC"END%4,5);* 
OF PREA0;% 



.-gfnidc , - , f"-/F.ileid^); 

* QEN('S"'1»7);X 
GENC")"*!^);* 



GENC">",1,7);* 
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E PROCEDURE PWWITECLINEFEED);% U1935 

. value-li-nefxed.;.~boolean.-l-inefeed;x . . ... . 01936 

O BEGIN% 01937 

U INTEGER FILElD'F'I'LASTSY;* 01938 

Dni.irro D!» 



o 



o 



:-U 



U 



■^ 



O 



o 

D 



-i u-x-.n ,-l..,-, -, «- _ ... _.... . uiyjy .. .. 

GENC" BEGIN", 7,2);% U194Q 

FILEPARAMCOUTPUTFILF); FILE! » ^FILENAME; % 01941 

_I-F— T-Y-PEr-ABHCURTYPE-]..FORM = FlLES THEN- ERROR C 85 )}% 01942 

IF SYMK1NDCCURSY3/TERMINAL THEN* 01943 

BEGINS 01944 C 

IY- c U R S-Y- N E Q- R P A R -T-H E N % - - - ■ 01945 

DO BEGIN* 01946 

01947 C 



WHILE CURSY = C0MMA 00 INSYMBUUX 

-IF CURSY = AL-FAC0mST AND CURLENGTH>7 then* 
BEGINS 



01948 
01949 



~ U GENC"WALFAC"*6*2); GENI U C"F" ,? HE ID* 5 J ; GEN C"*"* 1/ 7 ) ; % 01950 

, GENID("-V-%FILE-ID*5); -GENC-'%"*1*7);% 01951 

.; crwthrllTll.rti i-rr..r\i /" r M /■ tl l> . a . •» -. . <v ,. . 



GENIDC"I",FILEID*5)J 

p:=stringpnt;% 

■ FUR- -I-:--l--STEP-7 UN-T-I 

If T«rr>IIDI riiPTu tL,-m» 



GENC",",1>7);« 01952 



01953 L. 

- -L--6 DU£ 01954- 

p> IF ISCURLENGTH THFN% 01955 

BEGINS 01956 C 

- IF-ALGQL-CNT<10- THEN WRITEALGUU * 01957 



•ir-HLuut^inKiu- i ntiN cm j. i cflL out/ * U1957 

replace algglpnj5alg0lpnt by """* psp for 7> """* ","}% 01958 

algulcnt:=algqlcnt-io;# 01959 

-end-else- gen("0>v2*6)*x --- 01960 

GENIMTCCURLENgTH); GENC"*'M*7);% 01961 



U GENINT(CARDCNt)* GENC")"*1,7);* -.,«*. 

INS.YMbQL/X- - 01963 

END OF ALFAC0NST ELSE* 01964 
O BEGIN% 



01962 O 



-GEN.e'P_WRI.TEC , %7,n; GENIDC»F"*FILEID*5)J GEN( "* "* 1* 7 J / % 01966 

GENI0("V",FILeID>5); GENC%",l,7m 01967 

Cl'Mln/IITII rtl -Tn r\i '• - 



01965 O 



,— v * i r r u u « 

U IF F=ALFA 



r-ruu/iurju inc.!' utisnii i, t ' lujl* 

F=ALFA THEN GENIMTC5) ELSE% 

IF-FSCHAR- --THEN- GENINTC4) ELSE GENINTC3);% 01978 

C " * %1 * 7 j ; % 



-IF F/FLQATlNG THEN ERRQRC4);% 01987 

TxiCwyiLirin.* _ tin n n ti n t 'tki ■ tu 



01988 



insymbol; expression;* 

IF TYPETAB1CCURTYPEJ.F0RM ,\EQ NUMERIC THEN ERRQRC 17 ) / S 01989 

GENCS'Mf 7-)** U1990 

END ELSE GEN("~l,"*3,b);;« 01991 



VJ 



u 



GENIDC"I",FILFID,5); GENC", ", 1,7);% 01968 

-LASTS-Y-:=CURSY;% . _ _. . ... 01969 

expression; F:aTYPETABlCCURTYPE],FORM;x 01970 

GENC", 'M, 7)i% 01971 

--IF-F = NUMERIC- OR- F=FL0AT I NG OR F = CHAR OR F=ALFA OR* 01972 

CURTYPE = B00LTYPE THEN* 01973 

BEGINS 01974 O 

IF F=NUMERIc -THEN ..GENlNTCn ELSE* 01975 

IF F=FL0ATIMG THEN GENlNF(2) ELSE* 01976 



01977 O 



n GENC"*'M,7);% 01979 

"^ IF CURSY^COlON THEN* 01980 O 
___ BEG-IN*... _. .- - . 01981 

insymbol; expression;* 01932 



01983 O 



,— ilMOiMDUL; L X K rt L S £> 1UNJA 

° IF TYPETABHCURTYPE],FURM NEQ NUMERIC THEN ERRQRC17)/* « i70J 

---GENC'VM,7);* 01984 

n IF CURSY=c0L0M THEN* 01985 

w/ BEGINS 01986 Q 
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END ELSE% 
-BEGINS 

IF' F=FLOAtING 

IF F=ALFA AND 

IF F=ALFA 

IF F=ChAR 



THEN QtwlNTCU) ELSE* 
LASTSY=ALFACUNST THEN 



GENINTCCURLE.NQTH) ELSE 



THEN 
THEN 



GEMNTC/) 
GENINTC1) 



ELSE* 
ELSE GENlNTClO);* 



! 

1 

! 

i 

— -END-i 

% 

% 

P-ROCI 


VALU! 
BEGI 

- . — — —- , , i 


END 

* 
% 


PROC 
BEGI 



E 

G 

END 

.__IR._ 

IF 

end;* 

FILEN 
IF 1.1 
BEGIN 

INT 

GEN 

GEN 

---GEN 

end;* 

GENC" 

OF-PW 



G E N C " , - 1 > " > 4 > 4 ) ; * 

— end;* • 

end else errorci?);* 

GtNINT(CARDCNT); GENC " ) " ' 1 * 7 i > 

nd of expression;* 
enc";'m»7);% 
until cursy/comma;* 
cursy^rpar- the^. begin err0hc46); 
cursy=rpar then insymbol;* 

ame-:=f-i-leid;% -- 

nefeed then* 

% 

EGER- dummy;* 

C"WLINEC%6>2); 

IDC h V"#FILENAMe»5); 

lDC"r%FI-LENAM E ^5); 



SKIP(RPAR) END;* 



G£NID("F'VFILENAME>5); 
GENC'S'M*/);* 

genctM/O;* 



genc%"#W);* 



ENU">4,5);% 

rite;*---- 



edure-filehandlinqcprocnum).; 
e prqcnumj integer procnum; 

N 

INTEGER- F; - - 

CASE PROCNUM OF 

BEGIN ; 

-.--GEN("PUT ,, #3*5); --- 

GEN("GET'S3,5); * 

GENC"HESET'%5#3); * 
-GEN C"REWRlT-E%-7->-l) '»■-%■-- - 

GEN("PAGE"M>4); % 

end; * 

GEN ("(M f'fyy FILE'PARAM(O); 

IF FILENAMES THEN ERR0RC78); 
F : =T YPE T AB 1 [ CURT YPE]» FORM/ X 
IF F=FILES AND -PR0CnUM = 5 THEN 

GENIDC'F", FILENAME^); GENC"/ 
GENlDCV'SFlLENAME^b); GENC'S 
GENIDC"I'SF-ILENAME#5); GENC 



so if "k it 



FILE HANDLING PROCEDURES* 



1) 

3) 

4) 
5) 



PUT 

GET 

RESET 
REWRITE 
PAGE 



* 

ERKQRC80);% 
" , 1 > 7 ) ; * 

7)i% 



GENINTCCARDCNT); GeNC " )"M ' 7 ) ; * 
IF CURSY^RPAR THEN BEGIN ERRQRC40); 

-i-F- cursy-rpaR-then insymbol;* - -■ 
OF filehandlIng;* 



edure pack;* 

N% 

integer -it>t;* — - 
genc"packc'%5,3);* 



SKIPCRPAR) END;% 
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INSYMBOLU 

-I-F-CURSYsLPAR THENX 

BEGINS 

INSYMBOL/^ 

I F-CURSY = IDENTIFIER T H ENX 

BEG I NX 

search;^ 
if. found then% 

8EGINX 

IF THISID.IDCL,ASS=:VAR THEN* 

- -- BEGIN* .... 

T:=TYPErA31cTHl5ID,TYPEJ;% 
IF T.FORM=ARRAYS THEN* 
BEGIN*-- 

it*=t,inxtype;% 




end else errqrcss);* 
end else errdrc88);x 

- end else- errorc !);%■- 

end else err0rc9);x 
insymbol;% 
--if-curs.yscomma--thenx 

BEGIN* 

GENC'S 'M,7);x 
- .INSYMBQL^-.-. EXPRESSION; CHECK r YrESC I T* CURT YPE )i % 
IF CURSY = COMMA THEN 1 ? 
BEG I NX 

- GEN(-"W1#7.);« 

INSYMBOUU 

IF CURSY=IDENTIFI£R THEN* 

BEGINX 

SEARCH/% 
IF FOUND THEN* 
BEGINS 



IF THISID, IDCLASSsVAK OR.* 

Tur«rn mr, A«e_ C0NST AND 3 DOLE AN ( TH I S I D . F ORMAL ) THEN* 



THISID, IDCLASS 

BEGIN? 

variable; WRITEEXPHU 
IF CURTyPE>0 THEN* 

IF TYPET-ABUCURTYPE] .FORM^ALFA THEN ERR0RC12)i% 
END ELSE ERRQR(8);X 
END ELSE ERRORCl )}% 
END- ELSE- ERR0rC9);.%- - 

"" ~ " SKIP(RPAK) END/% 



end else begin err0flc89)j 
eno else begin erroro^); skipcrpar) end;* 
je-cursy/rpar...then- begin -errqrc46); skipcrpar) end^x 

IF CURSY=RPAR THEn INSYMBOl;X 

errorc3); insymbul enq/x 
genint.ccaRdcno; genc")'m,7);x 



END ELSE BEGIN 

GENC-'VNW-)*-- 

END op PACKJX 
X 

_x _.. 

PRUCEDURE UNPACKS 
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BEGINX 

1 n 

GE 

IF 

— BE 



TEGE 
NC"U 
CUK 
GINX 
INSY 
IF C 

IF- C 

BEGI 

GE 

IF 

BE 



R--IT 

NPAC 
SY = L 

MBOL 
URTY 

Urt-S-Y 
NX 

NC"/ 
-CUR 
GINS! 
SEAR 
-IF- F 
BEG I 
IF 
— BE- 



KC 

PA 



PE 
= C 

SY 



i% 

"/7 

R T 



/I); insymbql;* 

HENX 



EXPRESSIONS 
>0 THEN IF TYPETABHCURTYPE]. FORM/ALFA THEN ERR0RC17)/* 

QMMA— TH£N%- 

1*7)/ iNSYMBOL/X 
= IDENTIFIER -THENX- - 



CH'X 

OUND--T-HENS! — 

NX 

T 
GI 
t; 
IF 
BE 



EN 
END 
END- EL 

END ELSE 

INSYMBQL 

IF-CUHSY 

BEG I NX 
GENC'S 

INSY MB 

END ELSE 
END ELSE B 

IF-.C-URSY-/R 

IF CURSY=R 

ENO ELSE BEG 

GEN C -2 #■!•-* -1*70- 

eno of unpack;* 



HIS 
N%- 
= TY 
T. 
GIN 

it: 

IF 
IF-- 

GEN 
GEN 

GEN 
D E 
ELS 
SE- 
ER 



ID.lDCLA3S=VAH THENX 

PETABlCTraSIIJ.TYpE];% 
FORMsARRaYS THEN* 



-t.inxtype;x 

TYPEtABICT.ARRTYPE] .FDRI^CHAR THEN ERR0RC8Q)/X 

-THISi-E-VEL>l -AND THISLEVEL^CURLEVEL THEN ERRQRC5)/X 

IUC"V"MOOOxTHlSLEVEL+THISINDLX*b);% 

C«/Mf7); QEN1NUTYPE.TmB2CTHISID.TYPE3);X 

( .t!.,.» ,-1,-7-)/- -GEN-INT(TYF J ETAB3CTHISID.TYPE3);* 

LSE ERROR C 88 )i% 

E ERR0R(68)/% 

ERROR (-1 -)-;-%-- - 

RQR(9>;X 



= COMMA-tHENS — 

"> i / 7 ) ; % 

ql; expression; checktypesut*curtype);x 

begin crrurc89); sklpchpar) enu/x 

EGIN ERRORC19); SKlPCHPAR) ENDiX 

R.AR— r-HEN-8EiSl-N-e«RQRC89i.;.-SKIPCRr'AR) END** 

PAR THEN INSYMBOL;X 

IN ERRORC3); INSYMBOL ElM0;x 

geninT-c-c-ardcnd;. gen(")">i*/:>;x 



PROCEDURE NEHUISP; 
BEGINS 
1- NT 

IF 



&k-k* »NEW"»"DISPQSE" 



e-ger-ti;% — - - -■ 

CURNAMEl5»"3000NEW" THEN GEN C "NEW C "/ 4, 4 ) ELSE* 
BEGIN GEN("DlSPnSE"^7/l); G£NC"C'M>7) END'* 

-I N SY.M B Q L }■% - ■ ■ - 

IF CURSY-LPAR THENX 
BEGINX 

--■ -INS-Y-MBOL-;-% 

IF CUKSYMDENTIFlER thenx 
BEGINX 

se-arch-; !S - 

IF FOUND THEN% 



02106 
0210 7 
02108 
02109 
02110 
021U 
02112 

02113 
02114 
02115 
02116 

02117 
02116 
02119 
02120 
02121 
02122 
02123 
02124 
02125 
02126 
02127 
02128 
02129 
02130 
02131 
02132 
02133 
02134 
02135 
02136 
02137 
02138 
02139 
02140 
02141 
02142 
02143 
02144 
02145 
02146 
02147 
02148 
02149 
02150 
02151 
02152 
02153 
02154 
02155 
02156 
02157 
02158 
02159 
02160 
02161 
02162 



f 1 



o 



o 



u 
O 

o 



o 



c 

c 
c 
c 

c 



) 



L. J 



o 



D 



o 

1 — ' 



5 o 
!o 

e 

a 

lo 

aj 

o 
o 



o 
o 
o 
o 
o 
o 
o 

G 

o 
o 



BEGIN* 

— -variable;* 

if curtype>0 then if type'i ab 1 [curtype !l , form=pqlnters then* 

BEGINS 

HR-I-T-EtXPR; — GEN(- , - , -^V1-a-'<' J-i-S--- 

Tl : =T Y PET AB i [CURTYPE KPU I NTT YPEi% 

ti:=typetabicti].size;% 

-IF-Tl>1023- tHEN-ERR0RC-86J;X- 

genintctd; genc")"* i*/);* 

END ELSE ERRQrCBI);* 
--END -ELSE-BEGIN -R-RROR-C 1 } i- I N b YMBUL END;* 



END ELSE ERRQRC9);* 
WHILE CURSYscOMMA D0% 

-— BEGIN- I-NSY-MBQL/S - -■ 

IF CURSY NEo IDENTIFIER THEN ERRQRC9);* 
IF CURSY NEO RPAR THEN iNSYMBUUS 
---end;% - -- 

end else begin err0rc58); smpcrpar) end;* 
if cursy/rpaR then bEgim erroru6>; skipcrpaR) end;* 
.ip_cuks.ysrpaR-then -insymool;*- - 



END OF NEW0ISp;% 
$ PAGE* 

% * 

% * 

<y _ _ ^ 

* PART 6: THE STATEMENT PARSER. % 

-% - _ ■ * 

% * 

% * 

-%%%%%%%%%%%%%%%%%%%%%%%J.%%%%%%%%%%%%%%%^%^%%%%%^%^^%%%1%%%%%%%%%%%%%%% 
% 
* 

PROCEDURE STATEMENT; FORWARDS 
* 

-.procedure., assignment;* - - 

BEGIN* 

INTEGER LEFTTYPE;% 

bABEL-ASSIGN>EXIT/% 

IF FOUND then* 

BEGIN% 

IF— THISID.IDCLASSsVAR OR* 

THISID.IDCuASSbCONST AND B00lEAN(THISID. FORMAL) THENX 

begin* 
-variable;- • left-type-? =cur type; % 



assign; if CURSY* ass ignsy then* 

BEGIN ERR0RC28); SKI PC ASSIGNS Y ) i % 
-IF-SYMKINDCCURSYjsTERMINAL THEN GO TO EXIT/* 



END/% 

insymbol;* 

-IF 1YPE-TAB4-C-LEFtTYPe3.STRUCT>0 THEN* 
BEGIN* 

ERRQR(95);* 
-END ELSE* - 

BEGIN* 
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WRITEEXPR; GEN("»- M *2'63i* 02220 C 

IF CHECKOPTIOn AND TYPETAB1CLEFTTYPE] .FORM<CHaR THEN* 02221 

ChECKEXPR(TYPETAB2CLEFTTYPE3,TYPETAB3[LEFTTYPE3) ELSE* 02222 

expression;* 02223 C 
— _ wr-i-teexprs-- — - 02224 

CHECKTYPESCLEFTTYPEfCURTYPtm 02223 

'^ ENDS 02226 C 

-END E-LSEX - - 02227 

BEGIN i FUNCTION ASSIGNMENT* 02228 
^ IF THISLEVELXCURLEVEL-1 OR THI 31 NDEXXCURFUNC THEN ERR0R(5)S 02229 C 
GENIDC m V"»1000xtHI-Si.EVEL + THIoINDEX»5); LEFTT YPE * =THISID • TYPES 02230 

insymbol; go to assigns 02231 

end;* 02232 C 

E-ND-ELSEX - 02233 

BEGINS 02234 

SKIPCAS3IGNSY);X 02235 C 



o 



'■U 



IF -CURSY = ASSIQNS-Y- THEN GO TO ASSIGNS 02236 

ENDS 0223 7 

u exits 

ENO-OF- ASSIGNMENTS - 02239 

* 02240 



o 
o 



o 



o 
o 
o 

o 



02238 L. 



X 02241 U 

-PRUCEDURE-. COMRSTAT-;* 02242 

BEGINS 02243 

INTEGER BFGINNUMS 02244 O 

-LABEL ST ATMS - . . 02245 



* 02246 

U BEGINNUM:=NUMBEGINSj=NUMBF.GIN3+1; MARGINC" B">BEGINNUM)S 02247 C 

_ GENC'!BEGlN",6,3)S _ _. . . 02248 

DO BEGINS 02249 

O IF CUKSY«SEMICOuON QR CURSY=BEG 1NSY THEN INSYMBOLS 02250 C 

ST- ATM! STATEMENTS . 02251 

GEN(";'M,7)S 02252 

U IF CUH5Y=EL3ESY THEN BEGIN ERRQRC20)* INSYMBOL; GQ STATM ENDS 02253 O 

IF-SYMKINDCCURSY] = INITIAL THEN BEGIN ERRURC21); GO STATM ENDS 02254 

END UNTIL CURSY*SEMiCOLON;% 02255 

'^' IF CURSY/ENDSY THEN* 02256 O 

BEG-IN ERROR (24); S^-IP-C E-NDSY ) S 02257 

IF CURSY/ENDSf THEN BEGIN INSYMBOU GO TO STATM ENDS 02258 

ENDS 02259 O 



GENC" END*'>5>4); MaRGInC" E'% QUil NNUM) S 02260 

n INSYMBOLS 02261 

u ENU OF COMPSTaTS 02262 O 

x _„ 0226 3 

n % 02264 

^ PROCEDURE IFSTATS 02265 O 



BE-QINX-- - 02266 

LABEL EXITS 02267 

^ GEN( ,? IF">3>6);% 02268 G 

insymbol;- -boulexpr;;', -■ 02269 



IF CUHSY,nHENSY THEN* 02270 

BEGIN IF CURTYPE>0 THEN ZRHQH(,27 )}% 02271 O 

-— - SKIP-C-THENSY);-. 02272 

IF CURSY/THENSY ThEN% 02273 

BEGIN IF CURTvPE-0 THEN ERR0RC2OS 02274 O 

----- - - ----- IF- SYMKiNUCcURSYJsTLRMINAL THEN GO TO EXITS 02275 

END; ENDS 02276 

O 
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genc" then%6,3);s 
-.- — insymbol; statement;*, 
if cursy=elsesy then* 

BEGIN GENC" ELSE f S6,3); 

-EXX-T-tS 

END OF IFSTAT;% 
% 



INSYMBUU STATEMENT LNDj* 



PRU 

BEG 



CEDURE CASESTAT/X 
IN% 

_DEFI.NE..CASEHASHCN)acN).[38«39] MUD MAXCASESSiJS 
INTEGER ARRAY CaSETaB t : MAXC ASE3 J ; % 

integer casenum*casetype»ncaseuabs* rempv arnum, conva) , contype, c* w 
boolean-.zerolab,first;% - 

casenumj=numcases*«numcases+i; makqinccb'SCasenum};* 

-tempvarnum:=numtemps:=numtemp5 + l^ 

if tempvarnum>maxtemps then errohc 163 j ft 

6ENC"0EGIN",6,3); qEN IO C "T n , TEMPVARNUM, 2) ) GEN C" J = % 2* 6); % 

-insy-mbol;— expressihnix 

GENC"/'M>7); CASETYPE:=CURTYPEiS 
IF TYPETAbUCASETYPE3.FoRM>FLUATiNG THEN* 
-BEG-IN ERRORCi7);-.CA-sE-T-Y-pE!aO. ENUiSJ 
IF CURSY^OFSY THEN* 

THEN ERKURUO);* 



BEGIN 



THEN 
THEN 



INSYMBUL EL3E% 
ERKORUB);* 



QO IHSYMOOL/X 



IF CASETYPE>0 

- SKIPCOF-SY);x 

IF CURSY=QF3Y 
IF CASETYPE=0 
■END ELSE - INSYMBOL; % - ■ 
DO BEGIN* 

WHILE CURSYbSEMICCJLON 

— firs.t» = t.rue;x_ 

if cursy/endsy thfns 

BEGIN% 

GEN.('IIF.w./3*6).;X .. 

DO BEGIN* 

IF FIRST TH£N FlRST!=FALSE ELSE INSYMBQLi* 

CONSTANT (CQNVAL*CONTYEE); J4 

IF CONTYPE>0 THEN?; 
BEGIN* 

-■- IE- CASETYPE = 0. THEN..CASETYPE J = CONTYPE ELSE* 

CHECKTYpESCcASETYPE#CONTYpE)/% 

genid(»t'vtempvahnum^); gen(»='m,7); genintcconvad;* 

. NCASELABS:=nCASELaBS+W* 

IF NCA3ELABs<MAXCASES then* 
BEGIN* 

IF- CONVAL--0-THENX 

IF ZERO L AB t h EN ERROHC31) ELSE ZERULAB J = TRUE ELSE* 
BEGIN% 

... -T-J-s:CASEHASH(CONVAL^56 

FOR CJacASETAHCTJ WHILE C/CQNVAL AND CXo DOX 

f:=if Tso then maxcas^s else i-i>% 

_I.E_.C*o. T-HEN--ERRORC31) ELSE C ASET ABC T 3 ! = CONV AL i% 

end;% 

END ELSE IF NC ASELABS = M AXCASES THEN ERRQRC3(j)>% 

- IF..CURSY = COMMA. THEN..GENC" UWfH>5)}% 

END/% 
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[J END UNTIL CURSYfCUMMAJ* 02334 

, GENC" -THEN"/ 6/ 3) /& 02335 

H' CURSY^COLON THEN BEGIN ERR0RC2O)/ SKIPCCULON) ENO/X 02336 q 

O IF CURSY=COLQN THEN INSYMOOL/S 02337 

S-T-A-T-E-MENT-;* - - - 02338 

IE CURSY/SEMICOlUN a'ND CURSYXENDSY THEN* 02339 

U BEGIN ERRQRC21)/ SK IP C SEM ICULON J END;* 02340 

-END/% -- 02341 

IF CURSY = SEMICOl_QN THEN GENC" El_SE"/6/3);£ 02342 

O FND UNTIL CURSY^SEMiCOLON;% ?2343 

IF-CURSY^ENDS-Y-THEN. BEGIN- ERRURC24)/ SKIPCENU5Y) END;* °^344 

GENC" END"/5/4)/ MaRGI Nf "CE"/ CASENUM) >% 02345 

(J NUMTEMPS:=NUMTEMPS-iJ% 02346 

I-NSY-MBOL/S — ■-- 02347 

£ ENU OF CASESTAT,* MSJJ r; 

% 02350 

J PROCEDURE WHlLESTAT/% 02351 q 

~fi BEGINS "2352 

o trABEL--S-T-A-T-M-,E-XI-T;-a: - - U^Jbd 

s- GENC"WHILE"/Cj/3);% 02354 q 

I { ^ insymbol; boqlexpr;% rl*ll 

% I-F-CURSY/DOS-Y--THE-NS. n-Ali 

Ju BEGIN IF CURTYPE>0 THEN ERROR C 19 );% U^J57 q 

'^ SKiP(DOSYj;X "2358 

I-F -CURS-Y-/DOSY— T-HENX — - - "f, 3 , 5 ? 

BEGIN IF CURTYPE-0 THEN EhhORC19)/% 02360 

O GO TO IF SYMKINDUURSYJsINIIIAL THEN STATM ELSE EXIT** 02361 

END-;— ENU;-X -- "2362 

GENC" DO"/ 4,5);% £2363 

O insymbol;x 0^364 

5-T-AT-M-J-S-T-AT-EMEN-T'X - S5?5! 

EXITSS "2366 

U END OF WHILESTAT/S 02367 

% __ __ _ 02368 

02369 



'-■ — ' 



c 



% 

U PROCEDURE REPEATSTAT/% 02370 

BE-Q-I-NX - - • ■ ■ ""J' 

INTEGER REPNUM/% 02372 q 

O LABEL NEWTRY;% nllll 

X_ — - - — — - . UcJrl 

REPNUM»=NUMREHS:=NUMREPS+i;X 02375 

O MARGIN C" R",REPNUM);X 02 376 

GEN(~! , -U[J , Lz3*6);---.GEN(''BEGl.N-"/6,3;>% 02377 

DO BEGIN* 02378 - 

O INSYMBOL^ % 02379 

NEW.T-RX;-,ST..ATEHENTJ% _ 02380 

GENC ,, ; , M>-7)/% 02381 q 

O IF CURSY=ELSESY THEN BEGIN EKRORC 20 >/ INSYMBOL/ GO NEWTRY END/S 02382 ^ 

IF_.S-Y-MK1-NDCCURSY]-INITIAL-JHEN BEGIN ERR0RC21)/ GO NEWTRY END/* 02383 -■ ■ 

_, END UNTIL CURSYXSEMiCULON;* "2384 q 

U IF CURSY/UNTILSY THe;N% 02385 

8EG-TN* - — 02386 

ERR0R(22)/« 02387 q 

O WHILE CURSYXUNTILSY AND S YMKl ND[ CURS Y ] XI N IT I AL D0% 02388 

BEGI-N-IMS-YMBOU-/- SKIP(UNTILS-Y-) EMD/% 02389 

IF CURSYXUMTILSY THEN GO TQ NEiURY/56 02390 q 



e 






u 



o 

o 

o 

> 

iO 

i 

o 

Ll_ 

lo 

CD 

o 

Q 

s o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 



END 

-% — 



end;% 

insymbol; boolexprs 
or hepeatstat;% 



MARGINC" U"/REPNUM);% 



PRUCEDURE FURiJTAT/% 
-BEGIN% ----- 

integer vartype#varnum#llim>ulim/x 
boolean down;?; 
l-abe-l --st-atm;* 



% 



,6,3);% 



GENC'BEGIN" 

— I-N SYMBOL /% - - — - 

IF CURSY^JDENTIFIER THEN% 
BEGIN* 

— — search;-?, - ■ 

IF FOUND THENX 
BEGINS 

v-arnum: = 1000 xth-i-slevel+th is index* x 

if thisid,idclass=var or* 

THISID.IDCLAsSbCQNST AND BDOLEANCTHISID. FORMAL) THtNX 

R F i" T fvl ° 

IF THIbLEVEL>l AND THISLEVEL<CURLEVEL THEN ERRORCS);* 
IF TH1SLEVEL>CURLEVEL THEN ERR0RC83 >; * 

- - VAHTYpE-:-sTH-lS-iD.-TYPE-;% - - --- 

IF TYPETAB1CVARTYPE3.FQRMSCHAR THEN* 

BEGIN% 

LLIMJ = TYPETaB2C.VARTYPE3;. ULIMl=TYPETAB3CVARTYPEJ J% 

END ELSE BEGlM ERR0RC12); VARTYPE!=0 END/% 

end else err0r(8)>* 

end„elsel.error.(lhx . 

end else err0r(9);% 
insymbol;% 

._i.f— curs.y./.assignsy. then* - ■- 

begin err0r(28);x 

skipcassignsY);s 
__ if..cursy.= assignsy. then insymbol else* 

IF SYMKlNDtCURSY]=IMITlAL THEN GO TO STATMjiS 
END ELSE INSYMB0L;% 
~GENIDL"V?WaRNUM/5).; . GENC "«•"./! *?)/* 

if checkoption then checkexpr t ll jm, ul im ) else expressions 
writee.xpr;s 

— GEN ("/-'-' ,.l,.7)/% 

IF VARTYpEsO THEN V aRTY pE J sCURT Y PE ELSE CHECKTY PES (V ARTY PE/CORTY PE ) ; 

numtempss = numtemps+i; if numtemps>maxtemps then errqru6m 
._i.f_cursy.5.t.0sy.. then- insymbol else* . 

if cursy=d0wmt0sy then begin d0wn;=true> insymbol end else* 

begin if curtype>0 then errqrc23);* 

skir(-t-usy-)-;-% -- - 

if cursystosy then insymbol else* 
begin if curtype = then erk0rc23 ) ; % 
if- -s-ymk-indc-curs-yua initial- then go to statm;* 

end; end;* 

genidc't'/numtemps/g); genc"*"/ 1/7)/* 
— if-check0p-t10n -then checkexprc lll m/ 0l1 m ) else expression/% 

writeexpr;* 
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STA 



END 

% — 
% 

PRO 
-BEG 



genc";",i,7);% 

-IF- VAKTYPE-0 THEN V A RTYpE : sCURT YPE ELSE CHECWPESC VARTYPE* CURTYPE )j 
IF CURSY/DOSY THEN* 
BEGIN IF CURTYPEX) THEN EKRORC 1 9 3 * J6 

SKI-HC-DOS-Y-)-;-J«- - 

IF CURiJY=DOSY THEN 1NSYMBUL ELS£% 
IF CURTYPE=0 THEN ERRORCiyJ;* 
-END-ELSE-1NSY-MB0U;55 
GENC"FOR",4,5); GEHinC'V'SVARNuM,5); GEN C "<•", I* 7 ); % 

genid( ,, v"*vahnumj5); genc "»i#y);x 

-IF -DOWN-THEN GEN C "OC)NNTO"> 7>2 ) ELSE GENC "IjPTU", 5,4 ) ;x 

GENIDC'T'^NUMTEMPS/?); GENC" DU",4,5);& 
TM: STATEMENTS 
-GENC" END'S 5*4) }% . 

NUMTEMPS: snuMTEMPS") }% 

of forstat;* 



CEDURE GqtU5TAT;% 
■I NX- ----- 

INTEGE 

INSYMH 
-IF CUR 

BEGIN 



END 
% 
-%— 

PRO 

BEG 



-END EL. 
OF GOT 



R lt% 

cjl; s; 

SY=IN 
i:=NU 
WHILE 
IF 1 = 
GENC" 
INSYM 
vSE ER 
OSTAT 



tconst then* . . . 

MLABS;% 

121 AND LABTABCn.LABVAL^CURVAL DO i: = I-i;% 
THEN-ERROR<-15>;5t - 
GO", 3/ 6); GEN1DC"L"*CURVAL,4);^ 

bol;% 

rdrcio);% 

;* 



CEDURE 

INS 

-INTEGE 

REAL U 

STARTL 

-DO- BEG 

INSY 

IF C 

BEG1 

SE 

IF 

----- BE, 



withstat;* 



R STARTLEV-EL»VERYFIRSTWITHSYM*I jX 

^TDPLEVEL^ VERYFIRi»niTHSYM*BNWJ7HSYMS;x 



EVELJ 
IN% ■- 
MbDL; 
URSY = 
NX 

arch; 

FOUN 
GIMS 
IF TH 
BEGIN 

VAR 

IF 
IF 
IF 
BEG 
IF 
-BEG 
T 
D 

D 

D 



% 

IDENTIFIER THEN* 

% 

D THEN5S 

ISID,IDClASSbVaR lhENX 

<v 
/a 

iable>-%- ■ 
curtype>0 thens! 

TYPETABlrCURTYFEJ.FOhlVRECORD THEN ERR0RC98);% 

simpuevariable then* 

in putsymce'o; insidebracketss=true end;* 

toplevel<maxlevel them% 

INX. 

OPLEVEL^TOPLEVEL+l'^ 

.NAMETAB:=TYpEl AB1 t CURTYPE] . RECTAb;% 

,REC-TYPE!=CURTYPE>% 

.NUMPNTRSlNHlTHt=NUMPUINTERSJX 
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02519 
02520 
02521 



O STATEMENT ? " 



02526 



TOPLE-VEL:=STARTLEVEl;-- NWITHSYMS!=VERYFIR$TWlTHSYMj% 02527 



O FQr"i:=FIRSTLAB StEP 1 UNTIL NUMLABS DOSS °2538 



02543 
02544 



LABTABCn.LAfiPEF-1/- "2541 
... G - T D. . L A B E U N D ;•% UtJ ^ fi 

end;% 

U ERR0RC15);« 

LABF0UN0»-~GENID(' , L%CURVAL>4)J ■■ GENC " ! ", 1,7 JJ 2 , o= * 

INSYMBOLJX q§125 

O IF CURSYr'cOLON THfN* 0?slfl 

--.BE0IN--ERR0RC26);X--- ..„„..„ nUta 

SKIPCCQLQN); IF CURSY=CUL0N THEN InSYmBOLJS 02j49 

O END ELSE IHSYMBOL;* S?!=? 
E n D ; X- 

O COMMENT *** START OF STATEMENT *** '** ??!! 3 

„ . 2554 

IF CURSY- IDENTIFIER THEN* 
O BEGINS 

__ search;^ • 

if found then* 

O BEGIN* , Q , je ., Q 

IF. THISIU..IDCLASS = V.AR-0R« * ,- „ * „ Q * n522V 

THISID.IDCLASS^CONST AND bUOLE AN C TH I SID .FORMAL ) OR* 4d561 

O 

( I 
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^ 



u 



P.FIR5TWItHSYm:=NW1THSYMS/* 02505 

-D.BRA C KETSINWITH:=REALCINSIPEBRACKETS);% 02506 

IF NNITHSyMS+NUMSYMS>MAXWITHSYMS THEN ERR0RC63) ELSE* 02507 Q 

FOR i: = l STEP 1 UNTIL N'UMSYMS D0% ""08 

BEGINS. 02509 

WITHTAB[NWITHSYMJ>];=SYMTABtn;X °2510 q 

NWIThSYMS;=NWlTHSYKS+i;* n?l 

ENDiS. 02512 

O.LASTWITHSYM*-NWITHSYMS-i;* 02513 Q 

DlSPLAYCTaPLEVEL3J=D;X 02514 

END-ELSE - LRR0R(B4-);% - " 

END ELSE BEGIN ERR0R(8)J iNSYMBOL END/* 02j1o q 
END ELSE BEGIN ERR0RC1)* INSYfoBQL ENDS ^517 
END .ELSE BEGlN-ERR0R(9)i- INSYMBOL END;* ""!?, 

numsyms:=o;* 
numpointers j= 01% 

-end -until -cuRsy^com^a;*- - , 

if cuksy?dosy then* nilii U 

BEGIN ERRURC19); SkIPCDOSY);* Jf" 

IF- CURSY=DOSY THEN INSYMBQL;% "Z524 

END ELSE INSYMBOLJ* 0«ij25 



o 



^•' 



i END of withstat;* ^^b q 

_ * __ 02530 

PROCEDURE STATEMENTS 
O BEGIN* 

INTEGER l}% 

LABEL LABFOuNOi* 
% 



025 31 r) 

02532 

02533 

02534 

02535 



o 



LF CURSY = INTCONST.THEN - % *** LABELED STATEMENT *** 02536 

02537 O 



O 



-IF- LABTARCll.LABVALsCuRVAL-THENS, JJ2539 

BEGIN If- LABTABCI].LABDEF = 1 THEN ERR0RC31)*X 02540 C 
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.— IF- 
BEG 

I 

B 



IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 

-IF-- 
IF 



E 

W 

END 

END E 

END--0F— 

IF CUHS 

CURS 

■CURS 

CURS 

CUHS 

-CURS 

CURS 

CURS 

-5-Y-MK 

BEGIN E 

OF STAT 



IF 
-I-F- 
IF 
IF 
-IF- 
IF 
IF 
-IF-- 



END 

-S-P-AGE* 

%%%%%%%%%%% 

% 

.% 



THIS. ID. IDC 

THI-SID.IDC 

IN'/, 

F THISLEVE 

EG I- NX - - 

IF CURNAM 
CURNAM 
CURNAM 
CURNAM 
CURNAM 
CURNAM 
CURNAM 
CURNAM 
CURNAM 
CURNAM 
CURNAM 
CURNAM 

CURNAM 
CURNAM 

-if— curnam 
if curnam 
nd else pa 
ri-teexp-r;% 
else begi 
lse begin 
ide-ntif-ie-r 

YsBEGlNSY 
Y^IFSY 

Y=CASESY 

Y=WHILESY 
Y=REPEATSY 

Y=FQRSY 

YsWITHSY 
Y=G0TUSY 

INDCCURSY-3 

RRQRC13); 

EMENT>* 



LASSsFUNC THEN ASSIGNMENT ELSE* 
LAsSaRROC THEN* 



L=o THEN 



% *** INTRINSIC PROCEDURE *** 



"SOW 

"7WR 



LI 

El 

E2s»-000 

El="400 

E1="6RE 

El-="400 

E1="3Q0 

E1="3Q0 

El="50R 

Ei="7RE 

E2="000 

EW-'-iOO 

E1~"7DI 

E2s"00O 

El^"400 

Els"6UN 

SSpARAM 



RITE" 
I TEL" 
OOON" 
READ" 
ADLN" 
PAGE"- 
OGET" 
OPUT" 
ESET" 
WRIT" 
OOOE" 
ONEW" 
SPQS" 
OOOE" 
RACK" 
PACK" 

s;* 



THEN 
AND* 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 

THEN 
ANU% 

THEN 
THEN 
ANUS 
THEN 
THLN 
THEN 



PWRITECFALSE) 

PWRITECTRUE) 

PREADCFALSE) 

PREAU<TRUt) 

FILEHANDLINGC5) 

FILEHAN0HNGC2) 

FILEHANDHNGCn 

FIuEHANDLlNGO) 

FILEHANDLINGC4) 
NEWDISP - 

NEWDI3P 

PACK 

UNPACK 



ELSE* 

ELSE* 
ELSE* 
ELSE* 
ELSE % 
ELSE* 
ELSE* 
ELSE* 

ELSE* 
ELSE* 

ELSE* 
ELSE* 
ELSE ERRQRCO);* 



N eKKQRU3>j 3KIPC99) ENDU 
ERi^QRC I >* ASSIGNMENT ElMO;* 

— ELSE'S - 

then compstat else* 

then ifstat else* 

■-then--case-stat else* 

THEN WHILESTAT ELSE* 
THEN REPEATSTAT ELSE*, 

--the-n-f0r5tat • -else* 

Then withstat else* 

then gotostat else* 
xt-e-rminal then* 
insymbol/ skipcsemiculon) enqijs 



% 
* 

.% 

* 
* 

%%%%%%%%%%% 

% 
_% _. 

REAL VALX1* 

INTEGER TYP 
-BOOLEAN --P- AC 

* 

PROCEDURE F 
-VALUE-RECTA 

INTEGER REC 



%%%%%%%%%%%%% %%%%%%% %****%**%****%%*%**%* ******************** 

% 

.. . * 

* 
PART 7; TYPE DECLARATIONS. * 

_.. - ._-.--.«-------------- % 

% 
% 

***%2***%**%%*%*%***%*******%*******%* ************ *********** 



VALX2'* 

ex1>typex2j* 

ked;-* --■ ■ 

ieldlist(rectab>fir3taddr>lastaddr);* 

b#-F-irs.t-acdr;% .— . . - 

tab>firstaddr>lastaddr;* 
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U2622 L 



[I.j FORWARDS 02619 C 

A *— 02620 

DEHNE SUBRANGE= %*** SUBRANGE DECLARATION *** 02621 

^ BECa I N % **************************** 

__ — GONS-T-AN-T-(-V-AL-X-l»-T-YP-£x-10*X— - 02623 

IF TYPETA31CTYPEX1],F0RM>CHAR TiiEN ERRORdlJiX 0262a 

'-' IF CURSY/0QU8LE00T THEN ERRQRC53);* 02625 C 

INS-YMSOUX - . 02626 

C0NSTANT(VALX2*TYPEX2);% 02627 

IF TYPEX1>0 AND TYP£X2>0 THEN* 02628 C 

— IF--TY-P-EX-1/T-YP-EX2-THEN -ERRORCIU ELSE* 02629 

IF VALX1>VALX2 THeN £RRQR(54);* 02630 
^ Ti:=TYPETA8lCTYPEXl] .FORM; IF U = 3YM80LIC THEN T 1 : =SUBTYPE; % 02631 C 
- NEW TYPE; . rT-YPE-;=-TYpE INDEX }% 02632 

ti.size;=tsize:=i; ti.struct:=o; ti,maintype:=typexi;x 02633 

TYPETA3HTYPEINDEX] j = Tl;% 02634 C 

T-YPE-TAB2[.T-YPEINDEX]: = VAL-Xl; FYPETA63 C TYPE I NQEX 3 : =VALX2; * 02635 

END OF SUBRANGE*/* 02636 

* 02637 C 

% . ._ . _ ._.. .. 02638 

i- PROCEDURE TYPEDECLCTTYPE*rSlZE);x 02639 

;° INTEGER TTYPE* TS IZE; % 02640 C 

: BEGIN* _ - ._ 02641 

U, PROCEDURE TYPERRCERRNUM,TTYP£> TblZE)^ 02642 

VALUE ERRNUM;* 02643 G 

INTE r 'ER-ERRNUM>TTYP e *-T-3lZE;^- • 02644 

BEGIN ERRUR(ERRNUM);* 02645 
U TTYPE!=TSIZE:=0;^ 02646 Q 
END;* . . 02647 

,-. % 02648 

U INTEGER HECINX»ARRStHUCT'TX*SX*TI»T2»T3*T»N;* 02649 O 
BOOLEAN.. .F.IRS.TJ.% . 02650 

% 02651 

PACKED:=FALSE;% 02652 O 



O 

o 



o 



u 



I£._.CUR.3.Y = IDEN.T-IFIER..T.HEN._ %*** SIMPLE TYPE DECLARATION *** 02653 

BEGIN £******************************* 02654 

-' SEARCH;* 02655 O 

IF. .FOUND THEN*.- _ ._ 02656 

BEGIN* 02657 
^ IF THISID.lDCLASS=TYPES THEN* 02658 O 
..-.BEGIN* . , 02659 

- TTYPE:=THI5ID,TYPe; TSUE:=TYPETAB1CTTYPE3.SIZE;* 02660 

° INSYMBOL;* 02661 O 
.END. ELSE .IF JHI si D. I.DCLASS = CUN51 THEN SUbRANGE* 02662 

ELSE TYPEHR(7,TTYPE>TSIZE);* 02663 

END ELSE BEGIN TYpERRC 1 > TTYPEM SI ZE ) ; INSYMBOL END>* 02664 O 



-END-ELSE* __ 02665 

IF CURSY<CHARC0NST OR CuRSY = PLUb OR CuRsY=MINUS THEN SUBRANGE ELSE* 02666 

IF CURSY=LPAR THEN* 02667 O 

-BEGIN*. - . 02668 

NJ=0;* 02669 

newtype; T3,idclass:=const; T3,type* =typeindex; % 02670 O 

DO-BEGIN*---- - -- - - 02671 

INSYMBOL;* 02672 

IF CURSY=IDENTIFIER THEN* 02673 O 

- -BEGIN*. ^ _. 02674 

NE.WNAME(CURNAmE1*CURNAME2/ CUR LEVEL);* 02675 
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o 



T3,INF0*.=n; NAMETAB3CCURLE.VEL*THISINDUJ»-T3;X 

NtaN + i;.. -insymbql;« 

END ELSE ERR0RC9H* 
END UNTIL CURSYXCCJMMA;* 
__I-F-CuKSYXRPAR-THEn BEGIN -E.RR0HC46^ SKIPCRPAR) end;% 
T1J=SYMB0LIC/ Tl,STRUCT:aO;% 

ti.size;=tsize:=i; ttype:=type index;* 

— T-Y P E T- A B 1 [ T-Y P E 1 N D E x 3 '• = T 1 -'*% 

TYPETAB2CTYPEINDEX3 *=o; TYPETA63 C TYPE INDEX ] !=N"l;S 
IE CURSY = RPAR THEN INSYMBOL/55 
ENO-ELSE% -•-■ -■ - ■- 



THEN 



%*** POINTER DECLARATION *** 

& * * * *********** ************* 



THEN* 



IF CURSYsARROW 
-BEGIN 

insymbol;% 

IF CURSY=lDENTIFIpR 

— -BEGIN* 

NEWTYPE; TTYPE; = TYPEINDEXi Tl :=PO I NTER&; * 

ti.size;=tsi2e:=i; ti. struct ;=u;% 

- -TYPETABli:TYHEINDEX]:=Tir« 

search;* 

ik found then% 

BEGINS - 

II- THISID.IDC|_ASS=TYPES THEN* 

TYPETABUTYPElMDEXl .POINTTYPE i = T HI SI D . TYPE ELSE* 
TY.PERRC7-*TT-YPe»TSIZE);* 

END ELSE* 
ti c* r* T r i * 

IF NUMPNTRS<MAXPNTRS.. THEN NUMPNTRS S-NUMPNTRS+ 1 ELSE ERR0R<52); 
"pNTRTaBI [NUMPNTRS] :=CURNAMEi; PNTRT A62 LNUMPNTRS] : -CURN AME2> * 

PNTRTAB3CNUMPnTRS3:=TYPEINOEX^« 

._ - end;% - 

insymbol** 

END ELSE TYPERR(y,TTYPE*TSlZE)i» 

..end-of: pointer. declaRa-T-iqn else/,. 

f\ •<■ #% * I I t/ 

"IF CURSY = PACKEDSY THEN BEGIN P ACKED ; "TRUE 5 INSYMBOL END/% 



^ARRAYSY THEN 



%*** ARRAY DECLARATION *** 
S************************* 



IF CURSY 

BEGIN 

-• -INSYMBOL' S - 

IF CURSY^LBRACKET THEN ERR0KC47) ELSE INiYMBOLiX 

T!=0; FlRSTIaTRUEiS 
-DO- BEG I -N* 

IF FIRST THEN FIRST!=FALSE ELSE iNSYMBOLi* 

TYf'EDECL(TX>Sx);% 

..- IF~-TX>0- THEN*-- - 

BEGIN? 

if typetaq1[tx3.f0rm>char then errqru8)j% 
--.t.ii=array.s; -ti,inxtype: = tx; ti,arrtype:=t;% 

f2:=TYPETA3?CTX]; T3 S = T YpET AB3 CTX ] ;* 
IF T3-T2>1022 THEN ERRUrtC61);» 
- -Tl.SlZE: = MlNClOa3*T3-T2 + l);* 

newtype;* 
fypetabutypeindex] ; = t1^ 

- - TYPE-TA82[-T-YpEINDEX]: = T2i TYPETAB3 C TYPEI NDExU = T"3J % 
T:=TYPEINDExi» 
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E 

- END 
IF 
IF 

... -INS 

ryp 

IF 
. ARR 
NH I 
BEG 

T. 

T 
T 

T 

END 

TTY 

END 



no;% 

-UNT-I 
CURSY 
CURSY 
YMBOl. 
EDECL 
TYPET 
oTRUC 
LE T> 
IN? 

1 : = r Y 

l.ARR 
1 . S I Z 
YRETA 
}% 

PE:=T 
F -ARR 



l cursyxcomma;x 

XRBRACKfT THEN ERRUKC59) ELSE iNSYMBOi;* 
XOFiY THEN BEGIN ERHURCIB); SKIPCOFSY) END;* 
}.%..... 
CTX,SX);% 

aqhtx],f0rh>files then errqrc60 )i x 
t.«=typet.abii;tx], struct;* 

DU% 

PETABICTJ/ - .T3i=Tl.ARRTYPE;£ 

typc!=T)<; ri. struct s = arrstruct; = arrstruct+i;% 
bi cri :=ti; TX; = r; . r: = T3;% 



A} 

AY 



tsizejssx;s 



DECLARATION ELSE* 



then 



3*** FILE DECLARATION *** 
« ************************ 



THEN INSYMBOL** 



IF CUKSY-plLESY 
-BEGIN 

INSYMBOL * % 

IF CURSY^OFSY ThEN% 
—..BEGIN- -ERRORC-18);% - - - - 
IF CURSY^IDENTIFIER 

END ELSE INSYMBQLJS 
- T-YPEDECLCTX#SX);X 

IF rX>0 THEN* 

dEGIN T* 3 TYPETABlCTX];« 

... IF T.FQRM>FILE3. THEN ERRQRC50J EL3E% 
IF T,STRUcT>l THEN ERrtOR(49};* 

eno;« 
.. -mew.lype; txy re :=xy.pe index'* 

ii: = if ttfqrm = char then textfile else fuesis 
ti,size;=tsiZe?=sx; ti.filetype»=tx;x 

U, -STRUCT %*\.}% - 

rYpETABlCTYPEINoEXl »=Ti;rf 
END OF FILE DECLARATION El.SE* 



THEN 



%*** SET DECLARATION *** 
£*********************** 



IF CURSY=5ETSY 
BEGIN 
— INSYMBOL' % - - 

IF CURSY^OFSY THEN* 
BEGIN ERRORC 18);% 

— IF.-CURSY>CHARC0NS-T THEN IN5YMB0L'* 

END ELSE INSYMB0LJ3 
TYPEOECLCTX>SX);% 

__..IF- T.X>.0-T.HENX 

BEGINS 

IF TYPETAfiltTxl .FQRM>CHAR THEN ERR0RC48) 

OR TYPETAB3ETx]>38 THEN ERRQRC51 ) i S 



-IF— T-Y-PET.AB2C-T x -]<0 

end;% 

newtype; ttype:=typeinqex;a 
_t4.!=set.;-...tl..set-t.ype-j=.tx>- .t 1, s truct » = 0; * 

ri,SIZE:-TSlZE: = i; rYPETAdlC TYPE INDEX] t*Tli% 
TYPETA32C TYPE INDEX] : =TYPETAB2£ TX] '> % 
T YRE.TAB3 C TYPE-INdEX ].: ^TYPE.T.Ad 3[ TX ] ; * 



ELSE* 



END OF SET DECLARATION ELSE 
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**** RECURO DECLARATION *** 
£************************** 
,ASTREC:=UA5THEC-1 ELSE ERR0RC55);* 



- IF-CUKSY 
BEGIN 

IF LASTREC-J.>CURLEVEL THEN 

RECINX:=LASTREC;-S — 

t3LOCKTA8CRECINX]S=NuMBLaCKS5=NUM3LQCKS+lU 

INSYMBQL^ 
f--IELDLlST-<-RE-CINx-*0»3X-);-< -- -- 

IF SX>1022 THEN BEGIN £«R0R(S6); SX*=l022 END/? 

NEWTYPEJ TTYPE:=TYPEINDEX^ 
___T-14-=RECQR0-*-- T-1,RECT-ABJ=RECINX; T 1 , STRUCT ! = 1 I % 

T1.3UE:=TSiZES^3x; T YPET Ad 1 [TYPE INDEX ]J = U;% 

rYPETAB2CTYPElNQEXJ!-05 TY PET A3 3 [TYPE I NOEX ] ? = SX"U? 
IF.-CURSY/ENDSY- -T-HEN -BEGIN ERK0RC24); SKIP(EnDSY) END/* 

IF CURSY'ENDSY THEN INSYM80L'* 
END ELSE BEGIN ERrQRUJJ SKIPC99) END;? 

-end;-* — - - 

of typedecl;? 



END 

% 

procedure fleldllstcrectab,firstador,lastaddrm 

value rectab>firstaddru 
-Int-eger~rec-t-ab/f-irstaddr/lastaddr;?- ■- 

BEGIN? 

INTEGER ARRAY ILI ST[ SL I STLENGTH J ) % 

I-N-TEGER-L-IS-T-INX-;X-- ----- 

INTEGER CASETYPE/AD0R*MAXADDR#lNDEX^CTYPE*TX»SX#Tl»T3^UUIM#ULIM#i;* 

BOOLEAN FIRST/? 

RE-AL-CVALW - 

LABEL CASETYPEIDjCAsEPARTjEXIW* 



% 



-addr-5=f-irstaddr;s — - - 

DO BEGIN* 

WHILE CURSY = SEMICOLON DO INSYMBOL/? 
IF-CURSY = CASESY_ThEN GO-TO CASEPART/? 

IF CURSY=IDENTIFIER THEN* 

BEGIN* 

listinx-:-o.;.---first!=-true;x . • 

DD BEGIN* 

IF FIRST THEN FIR5T«=FALSE ELSE INSYMBUL/? 

_ 1.F-C U R S Y = I D E N-T-I F I E 8— T HEN* 

BEGIN? 

IF LlSTINX>LlSTLENGTH THEN BEGIN ERK0R(37>; 

L-IST-INX.:-=LISTINX + 1;* 

NEWNA,v|ECCURNAMEl>CuRNAM£2,RECTAa);% 
ILIST[LISTInX3:=THISINDEX;% 

. INS.Y.MBOL/% -- 

END ELSE? 

BEGIN ERRQRC9);? 
IF-CURSYXCOMMA -THEN iNSYrtBOLiX 



LISTINX:=0 END/? 



end;? 

END UNTIL CURSY/COMMA;% 
-IF-CURS-Y-XCOLON-THEN-BEGIN -EKR0RC26); SKIPCCOLON) END/* 

INSYMBOL'% 
TYP£DECL(TX/SX) " ? 
-IE...T-X>-0-THEN-- IF--TYPE-TAB1 C TX 3 .FQRM>F I LES THEN ERRQRC57J/? 
T3,IDCLASS:=VAR; T3.TYPE:=IX;? 
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EN 
END 

LAST 

GO T 

% 

-C-ASE PART- 
LIST 
INSY 

I-F-C 

BEGI 

SE 
IF: 

NE 

IN 

IF 

IN' 

IF 

— - BE- 



FOR 

-8EG-I 
T3 
NA 

-end; 
on 

UNTI 
ADDR 
EX 

INX» 

MBC3L 
URS-Y- 
H% 

ARCH 

-FOU 

W N A M 

SYMB 

-CUR 

SYMB 

CUR 

GIN* 

SEAR 

IF F 

8EGI- 

IF 

BE 



15 = 1 STEP 1 UNTIL LISTINX DO* 

N% - - -- 

,INFOJ=ADDRj 

METAB3CRECTA 

% _ 



ADDRlsMlN(ADDR+SX,1024 3;X 
B*ILISTCI]]!=T3J« 



l cursy/semicqlqn;* 

-*»addr;x - 

it;x 



so; LASTADO 

;% 

S-IOENT-I-F--IER-- 



rj = addr; index**-!** 

THEN* 



D.IOCL-ASSaTYPES THEN GO TO CASETYPEID,% 
URNAME2*RECTAB); INDEX :=TH IS INDEX ',% 



;% 

ND -AND— THIS I- 
ECCURNAMEl^c 

SY/ COLON -THEN -ERROR ( 26 )JX 
SY=IDENTIFIER THEN* 



..CAS.EXYPEIO..?. 



EN 

END 
END EL 

-end else 

IF CURSY 

IF CURSY 

-I.F.CASET 

DO BEGIN 

WHILE 

IF CUR 

BEGIN* 
FIRS 

DO -6 

IF 
CO 

IF 

BE 



ch;% 

OUND 

u% 

THIS 
GIN* 
CASET. 
LLIMS 
IF Tl 
J.EL.I.N 
BEGIN 
T3» 
_.. ADD 

end;% 

INSYM 

D-ELS 

ELSE 

SE BE 

..BEGI 

XQFSY 

= OFSY 

Y.REsO 

X 

CURSY 

S.Y.<CH 



THEN* 
ID,IDCLASS=TYPES THEN* 



YPE:=IH 
=TYPETA 
.FORM>C 
DE.X20-..-T- 

IDCLASS 

r.;=last 
bol;% 

E -BEGIN 
BEGIN E 
GIN ERR 
N-ERROr 
THEN B 
THEN I 
-THEN -B 

=SEMICQ 
ARCQNST 



t;=true;% 

EGIN% - -. - 

FIRST THEN 
NSTANTCCVAL, 
C-T-YPE>0- THE 
GIN* 

IF CASETYPE= 
■IF-CVAL<LLIM 
CHECKTYPESCc 



I.S.I.D.tTYPE; . Ti:=.TYPETABl[CASETYpE];* 
B2C CASE TYPE 3; ULIM ! = TYPE TAB 3 [C A SET YPEJ ; % 
HAR THEN ERRUR(43);.& 
.HEN* 

:=VAR; T3.rYpE;=CASETYpE; T3.INFQJ=ADDR;% 

addr.;=addr+i; nametab3Chectai3*index] ; = T3;% 



er3qrc7-); skipcofsy) end;* 
rrorcd; skipcofsy) end;* 
orc9); skipcofsy) end;% 

(9); SKlP(OFSy) EiMDI X 

egid errurc18); skip(rpar) end/* 

nsy*ibql;* 

egin li.imj=-maxint; ulim;=maxint end;* 

lon 00 insym30l/* 

..or cursy = plus .or cursy=minus thenx 



FIRsr;=FAL5E ELSE INSYMBOUX 

CTYPE);% 

NX 

THEN CASETYPE:=CFYPE ELSE* 

- OR CVAL>ULIM THEN ERR0RC14) ELSEX 

ASErYPE^CTYPE);^ 
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END 

XUl% 

NO -OF - 

PAGE% 

%%%%%% 



E 
END 
IF 
IF 
IF 
- BEG 
I 
I 
._ I 

1 

END 

ND/% 

UNT 



IF 
LI 
IL 
WH 
IF 

nd; 

UN 
CUR 
CUR 
CUR 
IN% 
NSY 
F M 
F- C 
NSY 

EL 



LlSTlNX>lIST|_ENG7H THEN BEGIN ERR0RC3Q); LISTINX!=0 END;* 

stinx;=lisTinx+i;% 

ISTCLlSTHlX3:=CVALi I' = l^ 
ILE ILISTI I3/CVAL 00 U=I+i;% 
-I<LISTI-NX THEN-ERHOKC3DJX 
% 

TIL cursy*comma;x 

SYXCOLON- THEN-BEGIN EHR0RC26); SKIP(LPAR) END/* 
SY=C0L0N THEN INSYMBOL;* 
SY=LPAR THEN% 



MBULJ FlELDLlST(RtCTAB,AODR*MAXAODR)iX 
AXADDR>LASTADDR THEN LAST ADDR ; =MAX AODR; % 

ursy^rpar -then-begin err0rc46); sklpcrpar) 
mbol;% 

SE ERR0RC58);* 



end;: 



IL CURSY NEQ SEMICOLON; A 



fieldl-ist;% - • - 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%**%%%*%%%%%%%Z%%i%%%%Z%%%%%%'< 



PART -8! THE- PROCEDURE BLOCK. 



% 

% 
% 

% 

.................... % 

a, 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%^x%%%%%%%%%%%%%i%%%%%%%%%%%%%%%%%%%% 



rucedure dec larevarscpaRam, tab ».first» last #leveuj;x 

ALUE PARAM,FIRST*LAST*lEVEl;« 
NTEGER ARRAY TABI03/X 
N-TEGER -FIRST, LAST, LEVELS - -■ 
OULEAN PARAM;% 

EGIN% 

jNTEGER LEVEL 1000* TYP*NAM*NAMTAd»TlU* J* RECSI2E;X 

BOOLEAN REALVAR»ARRaYVAR# FIRSTOin*EXTFlLE;% 

ALPHA FNAME;* 

INTEGER -FNLENGTH^FNSTARt; % 



% 



LEVEL 

-FOR -I 

BEGIN 

NAM 

. - T-YP 

IF 

BEG 

I 

B 



10005=LEVELxiOoO;% 

:=F-I-RST- STEP 1 UNTIL LAST DOS 



c nays 103; namtab»snametab3clevel>nam];* 

TAB, TYPE.; TU = lYPETABltTYP3;X 

B.IDCLASS GEG FUNC THLN% 



:=TAB 
-:=NAM 
NAMTA 
IMS 

F REALVAR OR- ARRAYV-AR THEN* 
EGINX 
GEN( 
-REAL 



: " ; 'M » 7 ) ; x 

..vaR:=arrayvar:=false;% 



end;: 
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IF 

-GEN 

GEN 
END E 
-IF Tl 
BEGIN 

IF 
_.___! F_ 

GEM 
ENO- E 
BEGIN 

IF 

IF . 

BEG 

I 



E 

G 

.END 

BEG 

I 

I 

B 



NAMTAB, IDC 

("PRQCEDU" 
IDC'V'MEV 
LSE2 

.STRUCT=0 
* 

ARRAYVAR T 
REALVAR TH 
BEGIN G£N 
IDC"V"*LEV 
LSES! _ 

REALVAR TH 

J1.FDRM<FI 

IN* 

F ARRAYVAR 

BEGIN G 

ENIDC'V'M. 
IRSTDlMi=T 
U -BEGINX-- 
IF FlRSTD 

GEMINTCTY 

_.IF_N0T- PA 

BEGIN GEN 

TYP;=IF T 

...t..i:=typet- 
nd until t 

EN (■•]"* 1*7 

...ELSE%. . 

IN 

F REALVAR 

._ .BE.GI.N_G 

F Tl. FORMs 

EGIN% 

...IEL..NUMF.1L 



LASS=F(jNC THEN GENC "REAL"* 5* 4 ) ; % 

* e , l ).; % 

EL1000 + NAM,5); GENC";'M*7)iX 



THtN - 



%*** SIMPLE TYPE *** 



HEn BEGIN GEN(">">1>7); ARRAf V ARi =FAL$E END;* 

en gen(!'*!m»7) else% 
c"real">5,4); realvar:=true end;* 

ELiOOO+NAM*S);» 



EN BEGIN GEN(";'M>7); REALVAR ; =FALSE END;% 
LES THEN . %*** ARRAY/RECORD *** 

THEN GEN(">"*W) ELSE% 
ENc"ARRAY'S6/3)i ARRAY VAR $ = TRUE END/% 
EVELlOOO + NA.Mj.5); GENC"["# 1» 7 );% 

rue>% 

IM THEM FIR5TDIM!=FALSE ELSE GtiMC %", 1,7 )i % 
PETAB2CTYP3);* 

RAm -THfNX 

C"!'M,7); GENINTCTYPETAB3CTYP]) END;% 
1,F0RM=ARRAYS THEN Tl.ARRTYPE ELSE REALTYPEJ* 

ABi-CT-YP-];X- 
l.STRUCT = 0;i5 

)i% 

%*** FILE *** 
OR ARRAYVAR THEN3J 

EN(.'Ii.!',h.7); REALVAR:=ARRAYVAR;=FALSE E.ND)% 
TExTFlLE AND NUT PAHAM THEN* 



o 



FIL 

.end;.* 
extfi 

FMAME 

-FNLEN 

IF FN 

BEGIN 

. ^..FOR 

IF 

END** 

- IF- EX 

BEGIN 

IF 

EL 

NU 

FI 

_-GEN 

GEN 

GEN 

.. ...GEN. 

GEN 



ES>MAXFILES THEN ERRQRC97H 

else numfiles!=numfiles+i;% 
etabcnumf iles3 isnam/s 

lei=false;x 
:=nametab1clevel*namj/j! 

GTH- !-= -FmAME.NAMELENGTH;. FNSTART J= 8-FNLENGTH; % 
LENGTH LEQ 6 THEN % 

a.' 

",J: = 1 .STE-P- 1 -UNTIL NUMEXTFILES DOX 
FNAME=EXTFILETABtJ3 THEN EX TFILE: =T RUE;* 



TFILE -ANq NOT--PARAM THEN* 

% 

NUMFILES GEQ MAXFIlES THEN ERR0RC97)S 

Sl% 

MFILES 
LETABC 
("DEF-I 
("=",1 

(FNAmE 

i"ttr±> 

(FNAME 



:= NUMFILES + i;% 
NUMFILES] J= "MAM - 11% 

NE«,7,2)> - GENIDC"F",LEVEL1000+NAM,5);% 
>7)>% 

*fnlength,fnstart); % 

2».6)i GENC t, SAVE"f5>4); GEN( "FILE"* 5#4 JJX 

*fnlength#fnstakd; * 
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end else% 

-BEGINS - - - . 

genc"flle",5>4); gen 10 c "f", level 10q0+nam* 5 ) ; * 
end;* 
-ik-no-t-param-t-hen* - 

BEGINS 

GENC" D1SK",6,3>; GENC "SERIAL", 7, 2 ); * 

IF-EXT-F-IL-E- THEN* ■ 

BEGIN* 

IF ALGOLCNT LSS 13 THEN WRITEALGOL'% 

GENC " [-0 : 1 •' , 5 >-3 ) / X 

GENC""",1,7)U 

GEN(FNAME,FNLENGTH#FNSTART); X 
G E N-( VJLt? , 1 , 7_).; G E N ( ' V " , 1 , 7 ) ; % 

IF ALGQLC|MT<9 THEN WRITEAlGOl;* 
GENC""", 1,7); gencusek,7,d; 



GENC""",1,/);* 



end- else* - 

BEGIN* 

genc" [20! ",4,4); genc"300]",4,4);;s 
end;* — - 

GENC"C1,",3,5);% 

RECSIZE:=IF T 1 . F0RM = TEXTF RE THEN 10 ELSE* 

IF-T-YPeTAB-1CT1-.FILETYPE].5THUCT = THEN 1 ELSE* 

T YPET AB3 [ T l. F I LET YPE] -TYPETAB2CT1.FI LET YPE] + i;« 
GENINTCRECSjZE); G£N C ", ", 1 , 7 ) ; % 

— -I F-- RE-CS I-2E=- l-O R- REGS i -ZE" 1 THEN GEN I NT C 1 50 )% 

ELSE GENINTCRECSIZE);* 
IF ALGGLCNT LSS 10 THEN WRITEALGOL'X 
GENC"^SAVE'-V6,3>; - GEN C " 30", 2, 6 ) ; % 

GENC");", 2*6);% 

END ELSE GENC";", 1,7);* 

GEN.(-'!.ARRAY-'V&, 3-)-;- - - GENID(".V",LEVEL1000 + NAM,5);X 

GENC"[",1,7);% 

IF TYPETAB1CT1,FILETYPE].5TRUCT=0 THEN* 

BEGINS - -■- - - - 

IF PARAM THEN GENC"0",1>7) ELSE GENC "0 * 0", 3,5 ); % 
END ELSE* 
BEGINS - 

gen int c t ypetab2cu.f retype j) ;% 
if not param then* 

begin -gen-(- , '.;.!!,-i,-7)-; - -gen int u ypet a6 3 ct 1 ,f retype 3 ) end;* 

end;* 

GENC"];", 2, 6);% 

- - -GENC-?* INTEGER", 8,1)-;.-. GENIQC "1", LEVEL! 000+N AM, 5 ) }% 

GENC";", 1,7);% 

end;* 

-end;-*-- -. - ---. 



END OF LOOP;* 

IF REALVAR DR ARRAYyAR THEN GENC ") ", 1 , 7 ) ; X 

-E-ND-OF--OECL-ARE-VARS;x - 

* 
% 

-PROCEDURE— PARAME-TERL-IST;* - 

BEGIN* 

INTEGER FIRST PARAM, cURK I ND,P1,PXM'T;% 
B00tEAN--F-I-RS-T-;-% 



* 
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DEFINE NEwPARAMsX 
-BEGIN*- — - _ - 

if numparams>maxparams then* 

begin err0r(70); numparams : "maxpakahs-10 

nump.arams»snump-aRams-+i;-* - 

end of newparam*;* 



end;* 



-NEW 

IF 

BEG 
D 



par am; —F-I 
cursy=lpaR 

IN* 

Q-BEGI-N*- - 
INSYMBOL' 
IF CURSY= 

■BEGIN*- — 
CURKIND 

I-NSY-MBO 

END ELSE 
FIRST!=TR 

-DO-BEG In* 
IF FIRS 

IF CURS 

BEGINS- 

NEWNA 
PX:=T 

PX,PA 

NEWPA 
END ELS 

INSYMBO 

END UNTIL 
IF CURSY= 

-BEGIN*- 

IF CURK 
INSYMBO 

IF-C-URS 

BEGINS 
SEARC 

IF-F-Q 

BEGIN 

IF 

BEG 

T 
F 

- - P 

I 
B 



RSTPARAM;sNUMPARAMbi% 

THEN* 



% 
VARSY 



QR CURSY=FUNCSY UK CURSY=PRQCSY THEN* 



:=IF CuRSY= 
IF CuRSY= 

l;*--- — 

curkind;=co 
ue; pi:=nu 

t then firs 

Y=IDENTlFlE 

ME(CURNAMEl 
HISINDEX; 

Ramlevel:=c 
ram; param 

E ERRQRC9}; 

u%- - - 

CURSY/CUMM 
COLON THEN* 



varsy then var else* 
funcsy then func else phqc;% 

nst;x 
mparam5+1jx 

t8=false else insymbul/% 

R THEN* 

*CURNAME^*CURLEVEL+U;* 
PX, P AR AMK I NO J =CURK I NO ;% 
URLEVEL+1/X 
TABCNUMPARAMSj:=Px;» 
% 

a;x 



IND=PRqC THEN ERROHC90)/* 

l; * 

y=identifier- then*. 



T-H 



E 

END 

END E 
END ELS 

.- INSYMBO 

END ELSE* 



h;% 

UNO 

* 

THISID 

I NX 

3S=THI 
OR II* 
ARAMTA 
F CURK 
EGIN* 
-T-:=-TY 

IF T. 

FOR 

PAR 

IF T. 
ND ELS 
-ELSE... 
LSE BE 
E BEGI 



EN* 

,IDCLASS=TYPES THEN* 



SID.T 
Pi ST 
BCI], 
IND=C 

PETA8 
FORM> 
IS=P 
AMTAB 
STRUC 
E IF 
BEGIN 
GIN E 
N ERR 



DQ5 



ype;* 

ep 1 until numparams 

paramtype:=t3;* 

onst or curkind=var then* 



ict-3];x. 

FILES THEN* 

1 STEP 1 UNTIL NUMPARAMS DO* 
[n,PARAMFIi_£:=i;* . . 
T>0 AND CURKINU=C0N3T THEN ERR0RC94);* 
T,STRUCT>0 THEN ERR0RC38);* 
ERR0RX7.3; T3:=0 END;* 

rrorcd; T3 : =0 end;* 
or(9); t 3 ; = o end;* 
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BE 



EN 

..__T.3 

FO 

NA 

-END 

IF C 

BEGI 



END 
% 
-% 



END 

end;* 

-P-ARAMT 
OF PAR 



GINS 
IF CU 
T3!=0 

o;* 

,1DCL 
R i; = 
ME TAB 
UNTIL 
URSY* 
N ERR 
_ - 1 F- 

ELSE 



RKIND^PRQC 



THEN ERRQhC7);% 



ass:=curkind; - t3.formal» s ijx 
pi step j until numparams do* 

3tCURLEVEL+l,PARAMTABtI].PARAMNAME]:=T3;% 

CURSY^Sf-MICOLON;* 
RPAR THEN* 

GR<46)/ SKIP(RPAR)/^ 
CURS-Y = RPaR- THEN INSYMaQL;* 
INSYMB0L;% 



AB [FIRST PA RAM] S=NuMP ARAMS-FIRST PARAM;* 
AhETERLlST'% 



PROCEDURE BLOCK;* 
BEGIN* 

INTEGER INDEX>CT-YPE#NUMFORWARDS*T*T3#TX*i;X 

REAL CVAL;% 
ALPHA C 1^ C2; % 

BOOLEAN -VALUEPARAMS, FUN; % 

LABEL START;* 
* 
INTEGER -LABTABT0P>C0NSTTABT0P,TYPETABT0P>P ARAM TABTOP* TOP RLC/X 

FORMERFIRSTlAB,FIRStFILE/* 



-FORM 
LABT 
CONS 

-TYPE- 
PARA 
TOPR 
■F-I-R5 



* 



TOPL 
IF-C 

STARTS* 

IF C 
BEGI 



erfirstlab:sfirstlab;% 

abtups=numlabs; fiRstlab:=labtabtqp+i;* 

ttabtop:=numconsts;% 

tabtop-:=numtypes;*- 

mtabtqp:=numparams;% 

ec:=lastrec;* 

tfile:=numf-iles+i;* 

evels=cuRlevel;% 

URLEVEL>1 -THEN- qENC "BEGIN"* 6* 3 ) ; * 



%*** LABEL DECLARATION *** 
%*** ******** ************** 



ursy=labelsy then 

N - - ...... 

GENC"LABEL",6,3);* 

DO BEGIN* 

■■- INSYMBOLU - - - 

IF cursy=intcqnst then* 

BEGIN* 

GENI-D(?'L"-*CURVAL'^)'* - 

IF CURVAL>9999 THEN ERRURC33);* 
FOR l!=FIRSfLAB STEP 1 UNTIL NUMLABS DO* 
IF LABTABCI].LABVAL=CURvAL THEN ERR0R(3l);* 

if numlabs>maxlabs then begin err0r(34); numlabs!=0 
numlabs:=numlabs+i;% 

labtabcnumlaBS] :.=curval;* 

insymbol;* 
end else begin errorclo)/ skipccomma) end/* 

.. .IF. CURSY = COMMa_ THEN GEN( "> 'M >~< ) > % 
END UNTIL CURSY^COMMA;* 



end;* 
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IF CURSy/SEMlCOuON THEN bEGlN ERRORC25); SKIPCSEMICOLUN) END;* 
GENC« , ;'-V1#7)J« 

IF SYMKINDCCURSY3XINITIAL ThEN INSYMBOLi* 
END OF LABEL DECLARATION;* 



_X 



IF CURSY=CONSTSY THEN 
BEGIN 

INS 

DO 

I 

B 



iY-MBOL 

BEGIN 

F CUR 

SEGIN* 

MEWN 

INSY 

I F-C 

BEGI 

IN 

■T-3 

IF 

BE 



i.% 

% 

sy=identifieR then* 



**** CONSTANT DECLARATION *** 
%** ******* ******************* 



—END- 



E 
. I 
IF 

END 
-OF- 



EN 

-NA 

END 

ND EL 

F CUR 

SYMKI 

UNTI 

CONST- 



AME(CURNAMEl,CURNAME2, CUR LEVEL)' INDEX : =THI SI NDEX; % 

URSY = EQLSY- THEN* ■ • 
NX 

symbol; constant ccval/Ctype);* 
: = ctype; -t3.idclasi>:=const/% 

CVAL.t46;8;i*Q OR CVAL>1023 THEN* 
GIN* 

if nuhconsts2maxc0nsts then* 

begin err0rc35); numconsts ! =0 end;* 

numconstsj=numconsts+i;% 

c0nstt-abc-numc0nsts3 s=cval/% 

t3.inf0:=1023+numc0nsts;% 

D ELSE T3.lNF0;=CVALn 

METAB3CC URLE.VEL# INDEX ]! = T3;% 

ELSE BEGIN EBR0RC36J; SKIPC SEMI COLON ) END;* 

SE BEGIN ERP0RC9); SKIPC SEMI COLON ) END;* 

SYXSEMIcOLON- THEN BEGIN ERRQRC2S); 5K IP ( SEM ICOLON ) END** 

NDCCURSylXlNlTIAL THEN 1NSYMB0L/* 

l cursy?<identifier;* 
ant-decl-aration;*.. - 



IF cursy=typesy then 

-BEGIN .. 

IN 
DO 



IF 

EN 

-END-OF. 



%*** TYPE DECLARATION *** 
_... . ., % ****************** ****** 

SYMBOL'* 
BEGIN* 

IF XURSY= IDENTIFIER- THEN* 
BEGINS 

NEWNAME<CURnAME1>CURNAM£2,CURLEVEL>> INDEX ;=THIS INDEX/* 

.insymbol;.* 

IF cursy=eqlsy then* 

BEGIN* 

insymbol;*-— - . 

typedeclcctype:*tx);% 
T3s=ctype; t3.idclass;=types;x 

NAMETABSCcURLFVEL* INDEX] s =13;* 

end else begin eprorc36j; skipc semiculon) end;* 
end else begin err0rc9); bk ip c sem i colon ) end;* 
if_curs.y/semlcolon then begin err0rc25j/ ski p ( semi colon ) end/* 

SYMKlNDCCURSylMNlTlAL THEN INSYMBOL;* 

d until cursy^identifier/* 
...t.ype-D.eclara.t-IOn;.* 



IF CURSY=VARSY ThEN 

-BEG.IJN__ 

VARINQEXisO;* 



A*** VARIABLE DECLARATION *** 
&******* ********************* 
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IF 
END 

DEC 
END OF 



BEGIN* 
IRST.VARI.5-V- 
U BEGIN* 

IF CURSY= 
-IF- -CURS Y = 
BEGIN* 

IF VARI 
BE-GI-N-E 

VARINDE 

NEWNAME 
— --VARL-I-ST- 

INSYMBO 
END ELSE 
ND-UNT-IL-C 
F CURSY/CO 
F CURSY=C0 
tG-I-N*— 

insymbql; 
typedeclc 

_T-3-S-=C-T-Y-PE 
FOR l!=Fl 
NAMETAB 
N0--EL-SE--BE 
F CURSY^SE 
SYMKINDUU 
-UNT-IL CUR 
LAREVARSCF 

VARIABLE D 



ARl-NDEX-+i;% - 

VARSY OR CURSYsCQMMA 
IDENTIFIER- THEN* 



THEN INSYMBOLiX 



>LISTLENGTH THEN* 
C37-)J-V-ARlNOEXisO END/* 
ARINDEX+P* 
NAME1,CURNAME2#CURLEVEL>JX 

index-] ;*th is index;* 

n ebr0rc9); skipcculon) end;* 

xcomma;* ... 

then begin errdrc26); skipccolqn) end/* 

THEN* 



NO EX 
RROR 
X!=V 
(CijR 
C-V-AR 

l;% 

BEG I 
URS-Y 
LON 
LOn 

% 
CTYPE/TX)/* 

-;— t-3.idclass: = var;x - 
rsjvar step 1 until varindex 

3CcURLEVEL/VARLlSTCrj3 5=T3;* 
GI-n-ERRORC-26); SK IP C 5EMIC0LUN ) 
MlcQLON THEN BEGIN ERR0RC25)/ 

rsyi^initiau then insymbol;* 

s-y/-idei\'TIf-ier;* • - 

alse/varli st* 1* varinde x/curlevel)/* 

eclaration;* 



DO* 



end;* 
skip(semicdlon) end/% 



IF NUM 
BEGIN* 

C-1-; s 

FDR 
BEGI 

CU 

SF 
TH 

IF. 

TY 



PNTRS>0 THEN* 



- C2;-=CURNAME2r* 
1 UNTIL NUMPNTRS 



DO* 



..CURNAME2:=PNTRTAB2CI]/* 



CURNAME-l/- 

I!=l STEP 

N% 

RNAME-l-'aP-N-TRT-AB-lCl-li 

ARCHTAB(CURLEvEL);* 

ISID8=NAMETAB3CCURLEV£L#THISINDEX3;* 

. .FOUNO--AND— TH-I-SID.IDCLASS = TYPES THEN*- 

PETABltPNTRTAB3CI]].P0INTTYPEJ=THlSID,TYPE ELSE ERRURC62)/* 



END/* 
CURNAMEi:=Cl/- ■ CURNAME2:=C2; — NUMPNTRS ; =0/ * 

END/* 

_WHI.lE-C-URSY.==F-UNCSY-..dR CURSY.sRROCSY DD._**** PROC/FUNC DECLARATION *** 
BEGIN is***************************** 

funs=cursy=funcsy; insymbql;* 

IF-CURSY = IDENT-lFlER-THEN*---- 

BEGIN* 

SEARCHTAB(CURLEVEL)/* 
TH IS-ID:=MAME-TaB 3 CCURLEVEL/ THIS INDEX]/* 

IF FOUND AND THlSlDt lDCLAbS>PROC THEN* 
BEGIN* 

-INDEX-J-=THISiNDEx;* 

IF THlSID.FoRWAPDDEF=l THEN* 
BEGIN* 

name-t-ab3[-thi-slevel/thibindex].fqrwarddef;=0;* 

numforwaRd s «=numforwaRds-i;* 
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ins 

END E 

ND-EL5 
EGIN% 
NEWNA 

T3.I0 

NAMET 

—INSYM 

IF CU 

BEGIN 

-.IF 

INS 

IF 

_ _BE-G 

S 

I 

-6 



THISID.ID 
THIS ID, ID 

YMBOL/% 
LSE BEGIN 

£% 



Ct,,ASS = PROC AND FUN)0R* 

CLASSIFYING AND NOT FUN) THEN EKRQK(«a3);% 

ERR0R(2)' SKlPCSEMICOLON) END'S 



E 
.END. 
IF 

IF 
GEN 
Ti = 

IF 
BEG 
G 

F 

___ B 



.. . E 

END 

INS 

-END-E 

BEGIN 

nd;% 

-ELSE. 
CURSY/ 
FUN TH 
C.".PR0C 
NAMETA 
TX>T T 
I NX - •- 
ENC'C" 
OR 15 = 
EG IN- fi 
IF BO 
BEGIN 

GEN 

GEN 

GEN 

—GEN 

end;* 

IF I 

nd;z - 

ENC" )> 
ALUEPA 
OR. I.: = 
F PARA 



MECCURNAM 

;. T3.-INF 
CLASS:=IF 

AB3CCURLE 

BOLX. PAR 

RSY = C0j_0N 

% 

NOT FUn T 

YMBOL/% 

CURSY=IDE 

■INS 

eahch;% 

F FOUND T 

E-G-INZ 

IF THIS I 

BEGIN?; 
.. — T-: = T-YP 
IF T»P 
BEGINS 

name 

END EL 

end else 

ND ELSE E- 

ELSE ERR 

YMBOLiX 

LSE-IF FU 

ERR0RC26 

BEGIN ERR 
SEMICOLON 

EN GEN("F 
EDU%8,1) 
B3[CUR L EV 
HEN% 



T+l STeP 

ENID.C'V'* 

0LEAN(PAR 

% 

(.'!, » f 1,7 ) 

IDC "F",10 

C",'M,7) 

IDC-'U-VIO 



ei>curname2,curleved; index i -this index;* 
o.;=numparams+i;* 
fun then func else pruc;* 

VtL>INDEX3 :=T3;% 
AME-TERLISU2 - -. 
THEN* 

HEN -ERR0RC4B);i 
NTIFIER THEN% 



HtNSS 

d.idclass=types then% 

etab1-[1hisid.type];% 

orm<alfa qr t.form=pointers then* 

1AB3[.CURLLVEL*.IND£X3.TYPE! = THISID.TYPE;% 
SE ERR0R(38);ii 
ERRQRC7)/* 

rrorcd;* 

0RC9);* 

N-THEN*.- 

); sklpcsemicolon) end;% 

dr(9); sklpcsemicolon) end/is 
then begin erhqrc25); sk ip c semi colon ) end** 
unctn">7/<2) else% 
; genidC"V",iooox C uRlevel + ind£xo);% 

EL * INDEX]. INFO; T X* =T + PARAMTaBCT 3 i % 



1 UNTIL TX DO* 

ioooxccuRlEvel+i ) + paramtabci 3.PARAMIMAME,5);x 

AMTABCU.PARAMFILE) THEN* 



}%. 



OOXCCURLEVEL+I )+PARAMTABCI 3,PARAMNAME/5);% 

; % 

0OxCCURLEVEL+l) + PARAMTABCI 3 . PARAMNAME ,5 ) ; % 
LSS TX THEN GENC">">W);;8 



">2>6);% 
RAMS:=pAL 
1+1. STEP- 
MTABCI ].P 



se;% 

1. until tx dox 

aramkind=cunst then* 
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IF NUT V-ALUeP-ARAMS 
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5>;% 



END 



BEGIN GEN("VALUE"*6>3);* 

VALUEpAKAMS:»TRUE'- 

END - ELSE- GE N C " * " * 1 * 7 ) *" * 

GENlD("V w >l600xCCURLEVEl+l J+PARAMTABCI3.PARAMNAME* 

END;* 
— -IF— V-AL-UEP ARAMs T HEN GEN C"i 'M * 7 } ; % 

DtCLAKEVARSCTRUE»PARAMTAB»T+l*rX#CURLEVEL+i);* 
END ELSE GENC";»*1>7);% 

INSYMBQL'X 

IF CURNAMEl="7FoRWAR" AND CuRNAME2="D" THEN* 

■BEG INK - - - 

NAMETAB3CCURLEVEU INDEX]. FURWARDDEF is UX 
NUMFOR WARD S»=nUMF0R WAR US+liX 
— -GENC"F0RWARD"y8>l)J% ■-■ 

INSYMBOL/% 
END ELSE* 
BEGIN* 

cuRlevel:=cuRlevel+i;* 

IF CURLEVEL>LASTREC THEN ERR0RC55);% 
_ . BL0CKTABCCURLEVEL]-:=NUMBLUCKS5-NUMBL0CKS + 1;% 

T!=CURFUNC; CURFUNC5=IF FUN THEN INDEX ELSE -U* 
BLOCK; %*** COMPILE PROCEDURE BODY *** 

---replace poin-ter(namera3ucurlevel**3 ) by ox 

for maxnamesn wurdsjk 
curlevel:=cuRlevel-i; cukfunc:*t;x 
— toplevel5=curle-vel-;-% ■ - 

C" M f\ * y 

IF CURSY^SEMICOlON THEN BEGIN ERRURC25); SKIP C SEMICOLON ) 

genc*;% 1*7 ux-- — 

IF SYMKINDCCURSY]^INITIAL THEN INSYrtBQL** 
OF PROCEDURE DECLARATION** 



eno;* 



IF NUM 
GENC"- 1 

FOR I: 

BEGIN 

end;* 

IF CUR 
-BEGIN- 



F0RWARDS>0 THEN ERR0RC44);* 

N-TEQER-'S8»-l);-«- 

=1 STEP 1 UNTIL MAXTEMPS 00* 

GENIDC"T»SI>2);% 

IF -I<MAXTE-MPS-THEN GENC"*"*1*7) ELSE GEN (."■} "*1* 7 ) * % 

SYXBEGINSY THEN* 

ERR0RC39);-% 

WhILE SYMKINOrCURSYl/INiTIAL 00% 

BEGIN INSYMBOu* SKIP C SEMI COLON } END;* 



IFCCURSY=TYPEsY)ORCCONSrsrSCURSY 

GO TO start;* 
end;* 
if curlevel = 1- -then* - 

BEGIN* 

GENC 
_.. IF. -I 

GENC 

end;* 
■for -i; 

IF FI 



AND CURSY<PRQCSY)THEN* 



" I N I T C % 5 , 3 ) ; % 

NPUTDECL-THEN GENC "TRUE"* 4* 4 ) EuSE GENC "FALSE"* 5, 3 )*% 
");"*2*6>;* 

= FIRST-FILE - S-TfP -l UNTIL WUMFILES UQ* 
LETABtl] L5S o THEN* 
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BEGIN* 

GE 

GE 
GE 
„END*- 
ELSE% 
BEGINS 
— GEN ID 
GENC" 

end;- 
numfile3:=firstfile»u% 



NC"CHFIL('^6,H);;^- 
NlDC"F"MO0OxCURLEVEL-FlLETABLl]~l^);% 



C "I'M OOOXCURLE-VEU + FI LET ABC 13,5 )/% 

.",1,7); GENC"BUFSl2E"*/>n; GEN C" i -80; ", 5, 3 ) ; % 



compstat; 



%*** COMPILE STATEMENT PART *** 



-%_ 



FOR I;=LASTREC ST 
REPLACE POINTERCN 

.--. FOR--I :=FIRSTLAB 3 

IF LABTABCHfLABP 
LASTREC:=TOPREC;% 

NUMLABS:=LABTABTQ 

FIRSTLAB:=FORMERF 
NUMCONSTS!=CONSTT 

NUMT-Y-PE S J=-T-Y PET AB 

NUMPARAMSlsPARAMT 

IF CURLEVEL>1 THE 

-ENU- OF- block; %■ 

$ PAGE* 

%%%%%%%%%%% 
.*_. - 

% 

% 

% 

% 

% 



EP I UNTIL TOPKEC-1 DUX 

AMETABlCI/*]) BY FUR MAXNAMES+1 WORDS/X 

TEP 1 UNTIL NUMLABS UQ% 

EF=0 THEN £RRQH(93);% 

P>% 

irstlab; % 

abtop;% 
top;x — -- 

ab tup;" 

n genc"end"»4,5);!s 



%%%%% 

JL 

% 

integ 

-ALPHA 

% 

AL^QL 
-AL^OL 

ALGOL 

USER: 
XIL.L- 

BEQIN 

F 

A 

L 



% 

__„ _I?ARX...9.;„ . ..T.HEL.MA1N PROGRAM. % 

mmm mmm m mmmmm % 

% 

__ ._ . % 

% 



er prognamelength;* 
rrugname,.algolname;% 

namej="pasc000"&entierctimeu)mud 10)c17s5:63;% 
namE!=algolname&entierc-time(4)div 7) c h :5 : 6 j; % 

NAME* = ALGOLNAMe&ENtIEKCTIMEU )MOq V)[5:5I6];x 

=time(-d;% 

p.ascalgul -hit.h-.algolname*user;» 

ile pascrun disk serial "pascrunvdisk" (2mo*i5oj;x 
rray-bupc-0-:-9-];% ._..._._. .... _ 

ABEL E0F;% 



..~WH.ILE~TRUE-D0%- 
BEGIN% 

readc 

write 

end;% 



PASCRUN»9#BUFC*3) CEQF]i* 
CPASCALGOL*-10'BUFC*]).;iS . 
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eof:% 

-e-nu--of- transfer of run time system/* 

CARDLENGTH:«72;i6 
INITIALI 
-L-IS-TOP-T-I-< 



c;=" '•; 

IF CURSY 

-BE-GlN%-~ 

INSYMB 

IF CUR 

BEG-IN% 

PROG 

INSY 

._ ...-I-F-C 

BEGI 

OQ 



ze; NEW CAR 

on:=checkop 
insymbol;% 

aPROGRAMSY 



d;% 

■t-iun-:-»-t-rue-;-« --- 



ul;% 
sy=identifi 



EN 
IF 

IF 

IF 

-END- 



NAME ?= 

mbol;x 

URSY=L 
N% 

BEGIN 
INSYMB 
IF CUR 
BEGIN* 
-_IH.C. 
IF C 

BEGI 

IF. 

NU 

IF 

EX 

IF 

end; 

END-.. EL 
INSYMB 
D UNTI 
-CURSY- 
CURSY 
CURSY 
ELSE..B 
SE BEG 
BEGIN 
»% 

: = i ; % 



CUHNA 
PAR-T 



THEN% 

ER THEN% 

HEl. C35I 363; PR0GNAMELENGTH;=MIN(6»CURUENGTH);% 

HE NX- ■- 



% 

Uyy.% 

SYsIDENTlFlER THEN* 



URN AM 
URNAM 
NX 

CURL 

mextf 

NUME 
TF-ILE 

NUME 
% 
SE -ER 

L CUR 
XRP-AR 
= RPAR 
XSEMI 
EGlN- 
IN ER 
F.RRO 



E-lal'sO-I-NP-UT-'i THEN I NHUTDECL : =TRUE ELSE* 
E1-"60UTPUT" THEN OUT PUTDECL ! =TRUE ELSE* 

ENGTH>6- THEN tMUH{7/)i% 
ILES:=NUMEXTFlLEb+i;% 
XTFlLESSMAXEXTFlLES THEN* 
TABC-NUME-XTFILES3; = CURNAME1 ELSE* 
XTFIl£S=MAXEXTF1lE5+1 THEN ERKOHC73);X 

R0MC9-);x. 



SY/CtlMMA/X 

-THEM- BEG IN- ERROR (46)/ SKI P (SEMICOLON > END/* 

THEN INSYMBOL;* 
COLON THEN BEGIN ERR0RC25)/ SKIPC SEMICOLON ) END;% 
ERRORC58-)i-SKlPC5EMlCULQN) lH^i% 

horcq); skipcsemicolun) end;^ 
hc75); skipcscmiculon) endjx 



% COMPILE USER PRUGRAM, * 



END EL 
END ELSE 
-INS-Y-MBOL 
CURLEVEL 
LASTREC!=MAXTABLES+ 

-X % %-% %■%%%% %%%%%%%%%% 
% 

block; 
%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%% %%% %%%%%%%%%%%%%%%%*%%%%%%%%*% 

IF CURSY^DUT THfc'NX 

-BE-G-I-NX— - --- -- ■- 

ERRO 
DO B 

-END;% 

IF FALSE 
BEGIN* 
-ENDOF-INP 

end; % 

4F-LIST-0 
IF ERRIN 



RC76);% 
LOCK UNTIL 

THLN% 

UT-:-ERR0R(-8 
WRITECL 

P_T-ION--AND--C 
X>0 THEN PR 



cursy=dot;^ 



7..).; — CHARCNr« s -U* 

ines,termmess);* 

HARCmT>0--THEN PRINTLINE/* 
INTERRORS;* 
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WRITECLINESEDBU3);% 
-WR.LT.E-CLl.MELS.LDttLJ ).* % _. . 

IF NUMERHS-0 THEN* 

BEGIN% 

_____ARRA-t_Z-I.RARHA.Y-C 0-8-19. 3^_Z[.C; J * %. 
POINTER ZIPPNTJSS 



% 



— DEF-I-NE- ZIPTEXTC TEXT, L-) = ^ 

BEGINS 

ZC0 3:=TEXT;?o 
HEP-LACE- -Z-IfipNT :-ZlP-P-NT- 

END#*% 



-BY- R0INTEKCZC*3) + CQ-L) FOR L*S 



-TRANSP.ERS A NUMBER TO THE ZIP BUFFER. 



END 
-BE-I 



PROCEDURE- Z.LENUM.CN )-;- 
VALUE N/ INTEGER Nj2 

if ns9 then _iptext(n*1) else* 
-begx-n-zipnumcn- d-i-v-l-o-) *-z i ptex-tc entierc n . moo 10)* 1 3 end** 

writ_algi)l;_ 

-WRI.T-E-CP-ASCALG0L,.LAStL1Nl)'^ 
LOCKCPASCALGQL*SAVE)*% 
ZIPPNT:=PDIMTER (ZIP ARRAY C*3>;„ 
-REPLACE-ZIPP-NT-BY ■ '-' -!~-F0R-20 WORDS** 
WRITE(UINES/N0ERRDRS)U 
ZIPTEXTC'CC %3); 

-Z IPT-E X-T-C-"—'! ,._-).* 

ZIPTEXTC"/"*1), 
ZIPTEXTC" XALG0L"*7)* 
IF-SAVEFACTOR>0 THEN- 
IF SAVEFACTOR<0 THEN 
ZIPTEXT("*"*1);% 
.Z I.P.T EXT. C » XA L G Q L •!.» 6 ) , - . 
ZIPTEXTC" CARD="*6); 
ZIPTEXTC'V'M); 
-Z-I-P-T-E X T-CI' .S E FU A _£* 7 ).; 
IF SAVEFACTOR>0 THEN- 
BEGIN* 
— Z-I P-T EXT ( !.'S AV.E=-" * 5 ) * — Z I PNUM ( S AV EF ACTOR ) ; _ 

ziPTEXT(";"*n;% 
end;% 

.z.lp-t-extc."end. , s4 );_--...- 
zip with ziparrayc*];* 

OF COMPILER -IP ELSe% 

NX _ - 

INTEGER li% 

SWITCH FORMAT ERRORmESSI :■-% 



ZlPTExrc"CUMPILE"*7)*% 
ZlPT_Xr(PRUGNAME»PKQ6NAMELENGTH);* 

ZIPTEXTCUSER*7),_ 

ZIPTEXTC" "*1)*SS; 
ZI R-T EXT.C" LIBRARY", 7)}% 
ZIPTEXTC"SYNTAX"*6)*% 

ZIPTEXTC" FILE"*5)*_ 

ZlPTEXT(ALGQi_NAME*7)*% 

ziptext(user»7);% 
- ziptex.tc"/"*i);% 
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.-.JUL 

C" 
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IDENTIFIER NOT DEFINED. ")*_ 



.__ -0_. ._*** .COMPILER-.. ERROR *** CONTACT THE COMPUTER CENTRE." )*% 

1 
2 
3. 

A 



IDENTIFIER ALREADY DEFINED. ")* % 
WRONG NUMBER OF . PARAMETERS.")^ 
SYNTAX ERROR, ")*_ 

5 VARIABLE NnT ACCESSIBLE (HARDWARE 
-6 ..STRINGS MAY NOT BE. CONTINUED FROM 

7 A TYPE EXPECTED.")** 

a variable expected. ")*% 

.9- -IDENTIFIER -EXPECTED.")** 
10 INTEGER CONSTANT EXPEC I LD. " ) * * 



RESTRICTION).")* % 

UNE CARD TO ANOTHER,")** 
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CON 
VAR 

UNK 
CON 
UND 
FOR 
EXP 
- .•» v ft 

• Mllf 

ft ft tt 

-ILL 
tt tf tt 

Him 

tf T» *» 

tt tl ft 

mill 

It tt II 
»» II tt 

QNL 

TOO 

LAB 

CON 

LAB 

TOO 

TOO 

» » n = tt tt tt 



ST ANT 
IABLE 
ECOGN 
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EF-INE 
" AND 
RESSI 
fit* tt.tt 

DO""" 

ELSE" 

EUAL 

UNTIL 
y tt tt tt 

END""- 



THEN""" 



Y NUM 

MANY 

EL US 

STANT 

EL-NO 

MANY 

MANY 
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NOT 
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tt tt tt 
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SET 
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TOO 
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LIST 
ALIO 
BEGIN 

MANY 
A CON 
RESSI 

PROP 
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, MANY 
) it it tt 

[ tt » it 

IMPLE 

ARRAY 

S FIL 

FILE 

BOUN 

MANY 

. .""" 

ST VA 

MANY 

-RECO 
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OF OTHER TYP 

OF ILLEGAL T 

I2ABLE STATEM 

TOO BIG OR T 

D LABEL." )t% 
CaSE-STATEME 

on is of wron 
expected."-)* 
Expected.")* 

"" without co 

TERMINATION 
""" EXPECTED, 
/"""DUWNTO""" 
" EXPECTED,") 
EXPECTED. ")*% 
EXPECTED. ")*% 
EXPECTED." 
EXPECTED."); 
BERS MAY BE S 

cases,")* % 
ed more than 

EXPECTED.")* 

t in range -0. 
labels decla 
constants de 

expected. "-)*% 
is too long, 

TYpE FOR A FU 
""" EXPECTED. 

IDENTIFIERS 
STANS MAY NOT 
ON IS. MOT -OF 
ER FORWARD DE 
IED FORWARD D 

DIFFERENT TY 
EXPECTED.")** 
EXPECTED.")*^ 

TYPE EXPECTE 

Of ARRAY""" 
E TYPE.")»% 
OF FILE""" IS 
DRY IS TOO BI 

UNDECLARED P 

EXPECTED,")* 
LUE IS GREATE 

RECORDS DECL 
RD CONTAINS M 
T ALLOWED IN 
EXPECTED,")** 
EXPECTED.")** 



E 1 HAM EXPECTED,")** 

YPE.")** 

ENT,")*% 

OU SMALL. ")** 

NTS NESTED TOO DEEP,")** 

G TYPE.")** 

* . -■ 

% 

RRESPGNDING """THEN""",")*: 

F STATEMENT,")** 

" ) * % 

EXPECTED.")** 
>% 



)** 



IGNED,")** 

ONCE.")** 
* 

,9999.")*% 

RED,")** 

CLARED.")** 

")*% 

NCTION.")** 

")** 

DECL 

BE 

TYPE 
CLAR 
ECLA 
PES 



ARED.")** 

LUNGER THAN 7 CHARACTERS,")** 

BOOLEAN.")** 
AT10N,")** 
RATION,")** 
DECLARED.")** 



D . " ) * % 

AND """ARRAY OF RECORD""" ILLEGAL"** 

ILLEGAL.")** 
G OR TOO SMALL,")** 
QINTERS,")** 
* 

R THAN SECOND VALUE,")** 
ARED AT ONE TIME,")** 
ORE THAN 1023 WORDS,")** 
RECORDS, »),% 



tch format err0rmess2 '=* 

« .60- """array of file'?"" no] allowed,")** 

range of Index is greater than 1023,")*: 
unsatisfied pointer declaration,")** 
expression is -too-. lung.")** 
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ILLEGAL OPERATOR FOR THIS TYPE OF EXPRESSION.")** 
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(" 65 INTEGER EXPRESSION EXPECTED .")* % 0364b C 

; -- (.«-66 A -SET -EXPEcT ED , " ) > % 03646 

~ I (" 67 PARAMETER OF ILLEGAL TYPE. "J** 03647 ^ 

O I (" 60 PROCEDURES NOT ALLOWED IN THIS CONTEXT, ")** 03648 ^ 

<.n._6-9---ILLEGAL USE OF- THIS- TYPE. OF IDENTIFIER.")** 03649 

(" 70 TOO MANY PARAMETERS DECLARED IN THE PROGRAM.")** 03650 

( ~< (" 71 """ARRAY OF CHAR""" EXPECTED .»), % 03651 C 

(«_ .72- WRONG -TYPE OF SET EXPRESSION,"),* 03652 - - 

(" 73 TOO MANY EXTERNAL FILES. ")** 03653 

C" 74 ILLEGAL IDENTIFIER FOR EXTERNAL FILE.")** 03654 C 

(.'L..75 """PROGRAM!'.""- EXPECTED .")# % . 03655 

C" 76 ""»,""» EXPECTED AT END OF PROGRAM .")* * 03656 

O (» 77 EXTERNAL FILE IDENTIFIER MAY NOT EXCEED 6 CHARACTERS, ") ** 03657 O 

('•- 78- ILLEGAL- FILE PARAMETER.")** 03658 

5^ C" 79 ILLEGAL USE OF FILE HANDLING PROCEDURE ,"), % 03659 

i[ >~> <" 80 TEXT-FILE EXPECTED,")'* 03660 U 

-€•»- 81- POINTER VARIABLE EXPECTED.")** 03661 

:„ (" 82 ONLY VALUES OF TYPE REAL* INTEGER QK CHAR MAY BE READ.")** 03662 

--LJ (" 83 VARIABLES IN RECORDS ILLEGAL IN THIS CONTEXT,")** 03663 O 

| ("-84- DISPLAY-OVERFLOW.")** 03664 

s.~. (" 85 READ AND WRITE MAY ONLY BE USED ON TEXT'F IlES. " ) » * 03665 

1^ C" 86 REFERENCED OBJECT IS TOO BIG,"),* 03666 O 

s (JL.87- END--OF--INPUT DISCOVERED.")*^ 03667 . . 

J.~ C" 88 CHARACTER ARRAY EXPEC TED ." ), % 03668 

^ (" 89 "«<»,""» EXPECTED,")** 03669 O 

- -(H-90- -PROCEDURES- MAY NOT HAVE ANY TYPE,")** 03670 - -- 

_, C" 91 PARAMETER OF WRONG KIND.")*? 03671 

U (" 92 ONLY COMPLETE ARRAYS AND RECORDS MAY BE TRANSMI TTED . " ) * X 03672 O 

_('»... 93.. DECLARED. LABEL NOT USED.")** 03673 

_ C" 94 PARAMETERS OF THIS TYPE SHOULD NOT BE VALUE PARAMETERS.")** 03674 

U C" 95 ASSIGNMENT OF STRUCTURED VARIABLES NOT IMPLEMENTED.")** 03675 O 

t , l_9_6._ ...INPUl/QUTP-UT- NOT- DECLARED ,")* * 03676 . .. 

^ (" 97 TOO MANY FILES IN USE.")** 03677 

LJ (" 98 RECORD IDENTIFIER EXPECTED,")** 03678 C 

...(."...99 -UNRECOGNIZABLE ITEM.")** 03679 

~ ()>* 03680 

O % 03681 O 

* 03682 - ■ 

WRITE(LINES,ERR0RS*NUMERRS);* 03683 

O FOR 15=0 STEP 1 UNTIL 59 00 IF ERRC13 ThEN* 03684 O 

WRI-TE(L1NES*ERR0RMESS1C} ])*% 03685 ... 

FOR 15=60 STEP 1 UNTIL 119 DO IF ERRU3 THEN* 03686 _ 

U WRlTE(LINES,ERR0RMESS2Cl-603)** 03687 O 

END-OF- ERROR MESSAGES; % 03688 

IF XREFQPTION THEN* 03689 
^ BEGIN* 03690 U 
REPlACE-P0InTER(XREFLI.NEC*3)- BY " " FOR 17 WORDS;* ._ 03691 

HEADING* % 03692 

^ SORT(PR1NTXREF*XREFFILE*0*XREFMAX,XREFCOMPARE*3*1000*6000);* 03693 U 

—END-;-*-- 03694 

END OF COMPILER,* 03695 
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